.emacs-my
changeset 191 abe708ccf6e5
parent 190 f511a2b4694b
parent 184 29dc0658b75d
child 192 8b4811c64ec4
equal deleted inserted replaced
190:f511a2b4694b 191:abe708ccf6e5
    71 
    71 
    72 ;; (desktop-load-default)
    72 ;; (desktop-load-default)
    73 ;; (desktop-read)
    73 ;; (desktop-read)
    74 
    74 
    75 ;; ======================================================================
    75 ;; ======================================================================
    76 ;; Standart settings
    76 ;; standart/general settings
    77 
    77 
    78 (setq kill-whole-line t)
    78 (setq kill-whole-line t)
    79 
    79 
    80 ;; show column & line numbers in status bar
    80 ;; show column & line numbers in status bar
    81 (setq column-number-mode t)
    81 (setq column-number-mode t)
    85 
    85 
    86 (setq frame-title-format "Emacs - %b")
    86 (setq frame-title-format "Emacs - %b")
    87 
    87 
    88 ;; Always end a file with a newline.
    88 ;; Always end a file with a newline.
    89 ;; (setq require-final-newline t)
    89 ;; (setq require-final-newline t)
       
    90 
       
    91 (setq read-quoted-char-radix 16)
    90 
    92 
    91 ;; ----------------------------------------------------------------------
    93 ;; ----------------------------------------------------------------------
    92 ;; Switching, creating, selecting buffers.
    94 ;; Switching, creating, selecting buffers.
    93 (iswitchb-mode 1)
    95 (iswitchb-mode 1)
    94 (setq iswitchb-buffer-ignore nil)
    96 (setq iswitchb-buffer-ignore nil)
   752       (modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos))
   754       (modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos))
   753       ))
   755       ))
   754 
   756 
   755 ;; (setq-default vc-svn-register-switches "--encoding cp1251")
   757 ;; (setq-default vc-svn-register-switches "--encoding cp1251")
   756 (setq-default vc-svn-register-switches nil)
   758 (setq-default vc-svn-register-switches nil)
   757 
       
   758 (setq my-svn-dir (concat my-el-dir "/svn"))
       
   759 (if (file-exists-p my-svn-dir)
       
   760     (progn
       
   761       (add-to-list 'load-path my-svn-dir)
       
   762       (require 'vc-svn)
       
   763       )
       
   764   )
       
   765 
       
   766 (if (file-exists-p (concat my-el-dir "/mercurial.el"))
       
   767     (require 'mercurial)
       
   768   )
       
   769 
   759 
   770 (if window-system
   760 (if window-system
   771     (progn
   761     (progn
   772      (custom-set-variables
   762      (custom-set-variables
   773       '(vc-annotate-very-old-color "#0b5b20")
   763       '(vc-annotate-very-old-color "#0b5b20")