equal
deleted
inserted
replaced
24 ;; Set the debug option to enable a backtrace when a problem occurs. |
24 ;; Set the debug option to enable a backtrace when a problem occurs. |
25 (setq debug-on-error nil) ; t/nil |
25 (setq debug-on-error nil) ; t/nil |
26 |
26 |
27 ;; ====================================================================== |
27 ;; ====================================================================== |
28 ;; Load path. |
28 ;; Load path. |
29 (add-to-list 'load-path (expand-file-name "~/emacs/site-lisp")) |
29 (setq my-el-path (expand-file-name "~/.el")) |
|
30 (add-to-list 'load-path my-el-path) |
30 |
31 |
31 ;; ====================================================================== |
32 ;; ====================================================================== |
32 ;; GNU Serv. |
33 ;; GNU Serv. |
33 |
34 |
34 ;; (load "~/emacs/bin/gnuserv/gnuserv.el") |
35 ;; (load "~/emacs/bin/gnuserv/gnuserv.el") |
608 (modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos)) |
609 (modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos)) |
609 |
610 |
610 ;; (setq-default vc-svn-register-switches "--encoding cp1251") |
611 ;; (setq-default vc-svn-register-switches "--encoding cp1251") |
611 (setq-default vc-svn-register-switches nil) |
612 (setq-default vc-svn-register-switches nil) |
612 |
613 |
613 (require 'mercurial) |
614 (if (file-exists-p (concat my-el-path "/mercurial.el")) |
|
615 (require 'mercurial) |
|
616 ) |
614 |
617 |
615 ;; ====================================================================== |
618 ;; ====================================================================== |
616 ;; Devel, prog |
619 ;; Devel, prog |
617 |
620 |
618 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
621 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |