.emacs-my
changeset 1738 1f9eaaf10690
parent 1734 ae2c6a001464
child 1739 0274fa6f1aca
equal deleted inserted replaced
1737:bd09520467ad 1738:1f9eaaf10690
     1 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
     1 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
     2 ;;
     2 ;;
     3 ;; Config file for GNU Emacs.
     3 ;; Config file for GNU Emacs.
     4 ;;
     4 ;;
     5 ;; For load order see README.
     5 ;; For load order see README.
       
     6 
       
     7 ;; Try to speed things up, especially in VM.
       
     8 (setq gc-cons-threshold 6000000)
     6 
     9 
     7 (require 'cl-lib)
    10 (require 'cl-lib)
     8 
    11 
     9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    10 (message "silent runing")
    13 (message "silent runing")
   582   (setenv "PATH"
   585   (setenv "PATH"
   583           (cl-reduce #'my-path-append-to-beginning
   586           (cl-reduce #'my-path-append-to-beginning
   584 	             (list (getenv "PATH")
   587 	             (list (getenv "PATH")
   585                            (expand-file-name "~/usr/bin") (expand-file-name "~/.local/bin")
   588                            (expand-file-name "~/usr/bin") (expand-file-name "~/.local/bin")
   586                            "/usr/local/bin" "/usr/bin" "/bin"
   589                            "/usr/local/bin" "/usr/bin" "/bin"
   587                            "/usr/sbin" "/sbin")))
   590                            "/usr/sbin" "/sbin"))))
   588 
   591 
   589 (defun follow-cygwin-symlink ()
   592 (defun follow-cygwin-symlink ()
   590   "Follow new-style (and also UCS-16) Cygwin symlinks."
   593   "Follow new-style (and also UCS-16) Cygwin symlinks."
   591   (save-excursion
   594   (save-excursion
   592     (goto-char 0)
   595     (goto-char 0)
   762 
   765 
   763 ;; See also `safe-local-eval-forms' & `safe-local-variable-values'.
   766 ;; See also `safe-local-eval-forms' & `safe-local-variable-values'.
   764 
   767 
   765 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   768 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   766 (message "standart/general settings")
   769 (message "standart/general settings")
   767 
       
   768 ;; Try to speed things up, especially in VM.
       
   769 (setq gc-cons-threshold 2000000)
       
   770 
   770 
   771 ;; Default 'command-history' length too short (in Emacs 23.2 is 30).
   771 ;; Default 'command-history' length too short (in Emacs 23.2 is 30).
   772 (setq history-length 200)
   772 (setq history-length 200)
   773 (setq history-delete-duplicates t)
   773 (setq history-delete-duplicates t)
   774 
   774