9 |
9 |
10 ;; silent runing |
10 ;; silent runing |
11 (setq inhibit-startup-message t) |
11 (setq inhibit-startup-message t) |
12 |
12 |
13 ;; ====================================================================== |
13 ;; ====================================================================== |
14 ;;* DEBUGGING |
14 ;; Debugging. |
15 |
15 |
16 ;; Shut off message buffer by setting nil. Note - if you need to debug emacs, |
16 ;; Shut off message buffer by setting nil. Note - if you need to debug emacs, |
17 ;; comment these out so you can see what's going on. |
17 ;; comment these out so you can see what's going on. |
18 (setq message-log-max 100) |
18 (setq message-log-max 100) |
19 |
19 |
23 |
23 |
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 (add-to-list 'load-path (expand-file-name "~/emacs/site-lisp")) |
30 |
30 |
31 ;; ====================================================================== |
31 ;; ====================================================================== |
32 ;;* GNU Serv |
32 ;; GNU Serv. |
33 |
33 |
34 ;; (load "~/emacs/bin/gnuserv/gnuserv.el") |
34 ;; (load "~/emacs/bin/gnuserv/gnuserv.el") |
35 ;; (require 'gnuserv) |
35 ;; (require 'gnuserv) |
36 ;; (setq gnuserv-frame (selected-frame)) |
36 ;; (setq gnuserv-frame (selected-frame)) |
37 |
37 |
49 |
49 |
50 ;; (desktop-load-default) |
50 ;; (desktop-load-default) |
51 ;; (desktop-read) |
51 ;; (desktop-read) |
52 |
52 |
53 ;; ====================================================================== |
53 ;; ====================================================================== |
54 ;; настройка внешнего вида редактора |
54 ;; Настройка внешнего вида редактора. |
55 ;;* View |
55 ;; View. |
56 |
56 |
57 ; remove menu on nil |
57 ; remove menu on nil |
58 (menu-bar-mode nil) ; t/nil |
58 (menu-bar-mode nil) ; t/nil |
59 ; remove button on nil |
59 ; remove button on nil |
60 (tool-bar-mode nil) ; t/nil |
60 (tool-bar-mode nil) ; t/nil |
96 (setq line-number-mode t) |
96 (setq line-number-mode t) |
97 |
97 |
98 (load "~/.emacs-custom.el") |
98 (load "~/.emacs-custom.el") |
99 |
99 |
100 ;; ---------------------------------------------------------------------- |
100 ;; ---------------------------------------------------------------------- |
101 ;;* Scrolling |
101 ;; Scrolling |
102 |
102 |
103 ;; гладкий скроллинг с полями |
103 ;; гладкий скроллинг с полями |
104 ;; (setq-default scroll-conservatively 70) |
104 ;; (setq-default scroll-conservatively 70) |
105 ;; (setq-default scroll-preserve-screen-position 't) |
105 ;; (setq-default scroll-preserve-screen-position 't) |
106 ;; при перемешении точка останавливается на расстоянии i строк к границе фрейма, |
106 ;; при перемешении точка останавливается на расстоянии i строк к границе фрейма, |
118 (setq font-lock-maximum-decoration t) |
118 (setq font-lock-maximum-decoration t) |
119 ;; syntax highlighting |
119 ;; syntax highlighting |
120 (global-font-lock-mode 1 t) |
120 (global-font-lock-mode 1 t) |
121 |
121 |
122 ;; ---------------------------------------------------------------------- |
122 ;; ---------------------------------------------------------------------- |
123 ;;* Line |
123 ;; Line |
124 (if window-system |
124 (if window-system |
125 (progn |
125 (progn |
126 (global-hl-line-mode t) |
126 (global-hl-line-mode t) |
127 (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow"))))) |
127 (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow"))))) |
128 ) |
128 ) |
129 ) |
129 ) |
130 |
130 |
131 ;; ---------------------------------------------------------------------- |
131 ;; ---------------------------------------------------------------------- |
132 ;;* Paren |
132 ;; Paren |
133 |
133 |
134 (show-paren-mode 1) ; Parenthesis matching via highlighting. |
134 (show-paren-mode 1) ; Parenthesis matching via highlighting. |
135 ;; (setq show-paren-style 'expression) ; выделять все выражение в скобках |
135 ;; (setq show-paren-style 'expression) ; выделять все выражение в скобках |
136 (setq show-paren-style (quote parenthesis)) |
136 (setq show-paren-style (quote parenthesis)) |
137 |
137 |
138 ;; ====================================================================== |
138 ;; ====================================================================== |
139 ;;* Keyboard, mouse and selection |
139 ;; Keyboard, mouse and selection |
140 |
140 |
141 (setq default-input-method 'cyrillic-jcuken) |
141 (setq default-input-method 'cyrillic-jcuken) |
142 ;; (pc-bindings-mode) ; Myself define keybinding, see |
142 ;; (pc-bindings-mode) ; Myself define keybinding, see |
143 ;; Настройка выделения "как в Windows" |
143 ;; Настройка выделения "как в Windows" |
144 (setq pc-select-selection-keys-only t) ; to avoid some key bindings as F6, etc |
144 (setq pc-select-selection-keys-only t) ; to avoid some key bindings as F6, etc |
192 (global-set-key (kbd "\e\eg") 'goto-line) |
192 (global-set-key (kbd "\e\eg") 'goto-line) |
193 (global-set-key (kbd "\e\er") 'query-replace-regexp) |
193 (global-set-key (kbd "\e\er") 'query-replace-regexp) |
194 |
194 |
195 ;; (global-set-key [language-change] 'ignore) |
195 ;; (global-set-key [language-change] 'ignore) |
196 |
196 |
197 |
197 (global-set-key (kbd "C-x C-d") 'dired) |
198 ;; ====================================================================== |
198 |
199 ;;* Coding system, charset, locale, lang. |
199 ;; ====================================================================== |
|
200 ;; Coding system, charset, locale, lang. |
200 |
201 |
201 ; Подготовка к использованию соответствующих кодовых страниц. |
202 ; Подготовка к использованию соответствующих кодовых страниц. |
202 (codepage-setup 866) |
203 (codepage-setup 866) |
203 (codepage-setup 1251) |
204 (codepage-setup 1251) |
204 |
205 |
275 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |
276 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |
276 (if (fboundp 'auto-compression-mode) |
277 (if (fboundp 'auto-compression-mode) |
277 (auto-compression-mode 1)) |
278 (auto-compression-mode 1)) |
278 |
279 |
279 ;; ====================================================================== |
280 ;; ====================================================================== |
280 ;;* Save |
281 ;; Save |
281 (setq auto-save-default nil) |
282 (setq auto-save-default nil) |
282 |
283 |
283 ;; ---------------------------------------------------------------------- |
284 ;; ---------------------------------------------------------------------- |
284 ;; *Recentf* |
285 ;; *Recentf* |
285 ;; Recent files in menu |
286 ;; Recent files in menu |
293 (global-set-key [f5] 'revert-buffer) |
294 (global-set-key [f5] 'revert-buffer) |
294 (setq revert-without-query (quote (".*"))) |
295 (setq revert-without-query (quote (".*"))) |
295 (setq auto-revert-interval 2) |
296 (setq auto-revert-interval 2) |
296 |
297 |
297 ;; ====================================================================== |
298 ;; ====================================================================== |
298 ;;* Convenient |
299 ;; Convenient |
299 |
300 |
300 ;; ---------------------------------------------------------------------- |
301 ;; ---------------------------------------------------------------------- |
301 ;; Completion |
302 ;; Completion |
302 (require 'icomplete) ; Interactive completion in minibuffer. |
303 (require 'icomplete) ; Interactive completion in minibuffer. |
303 (icomplete-mode) ; Toggle incremental minibuffer completion for this Emacs session. |
304 (icomplete-mode) ; Toggle incremental minibuffer completion for this Emacs session. |
324 gnus-audio-directory "D:\\music" |
325 gnus-audio-directory "D:\\music" |
325 gnus-audio-wav-player "winamp.exe") |
326 gnus-audio-wav-player "winamp.exe") |
326 |
327 |
327 |
328 |
328 ;; ====================================================================== |
329 ;; ====================================================================== |
329 ;;* TIME SETTING |
330 ;; TIME SETTING |
330 |
331 |
331 ;; ---------------------------------------------------------------------- |
332 ;; ---------------------------------------------------------------------- |
332 ;; Time |
333 ;; Time |
333 ;; |
334 ;; |
334 ;; Time in 24 hour format, plus day and date. |
335 ;; Time in 24 hour format, plus day and date. |
353 ;; STANDARD HOOKS |
354 ;; STANDARD HOOKS |
354 |
355 |
355 (add-hook 'write-file-hooks 'time-stamp) |
356 (add-hook 'write-file-hooks 'time-stamp) |
356 |
357 |
357 ;; ====================================================================== |
358 ;; ====================================================================== |
358 ;;* *auto-fill* |
359 ;; *auto-fill* |
359 |
360 |
360 (setq-default fill-column 90) |
361 (setq-default fill-column 90) |
361 ;; Turn on auto-fill mode |
362 ;; Turn on auto-fill mode |
362 (add-hook 'html-mode-hook 'turn-on-auto-fill) |
363 (add-hook 'html-mode-hook 'turn-on-auto-fill) |
363 (global-set-key (kbd "\e\ef") 'auto-fill-mode) |
364 (global-set-key (kbd "\e\ef") 'auto-fill-mode) |
456 (put 'upcase-region 'disabled nil) |
457 (put 'upcase-region 'disabled nil) |
457 (put 'narrow-to-page 'disabled nil) |
458 (put 'narrow-to-page 'disabled nil) |
458 (put 'narrow-to-region 'disabled nil) |
459 (put 'narrow-to-region 'disabled nil) |
459 |
460 |
460 ;; ====================================================================== |
461 ;; ====================================================================== |
461 ;;* TEX |
462 ;; TEX |
462 (setq tex-run-command "initex") |
463 (setq tex-run-command "initex") |
463 |
464 |
464 |
465 |
465 ;; ====================================================================== |
466 ;; ====================================================================== |
466 ;;* AUC TeX |
467 ;; AUC TeX |
467 |
468 |
468 ;; (add-to-list 'load-path "c:/program files/emacs/site-lisp/auctex/") |
469 ;; (add-to-list 'load-path "c:/program files/emacs/site-lisp/auctex/") |
469 ;; (load "tex-site") |
470 ;; (load "tex-site") |
470 |
471 |
471 ;(require 'tex-mik) |
472 ;(require 'tex-mik) |
608 (setq-default vc-svn-register-switches nil) |
609 (setq-default vc-svn-register-switches nil) |
609 |
610 |
610 (require 'mercurial) |
611 (require 'mercurial) |
611 |
612 |
612 ;; ====================================================================== |
613 ;; ====================================================================== |
613 ;;* Devel, prog |
614 ;; Devel, prog |
614 |
615 |
615 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
616 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
616 |
617 |
617 (setq-default show-trailing-whitespace t) |
618 (setq-default show-trailing-whitespace t) |
618 ;; (add-hook 'c-mode-hook '(lambda () |
619 ;; (add-hook 'c-mode-hook '(lambda () |
619 ;; (setq show-trailing-whitespace t))) |
620 ;; (setq show-trailing-whitespace t))) |
620 |
621 |
621 ;; ---------------------------------------------------------------------- |
622 ;; ---------------------------------------------------------------------- |
622 ;;* Diff, patch |
623 ;; Diff, patch |
623 ;; (add-hook 'diff-mode-hook '(lambda () |
624 ;; (add-hook 'diff-mode-hook '(lambda () |
624 ;; (setq show-trailing-whitespace t)) nil t) |
625 ;; (setq show-trailing-whitespace t)) nil t) |
625 (setq diff-switches "-u") |
626 (setq diff-switches "-u") |
626 |
627 |
627 ;; ---------------------------------------------------------------------- |
628 ;; ---------------------------------------------------------------------- |
777 ;'(ecb-options-version "2.32") |
778 ;'(ecb-options-version "2.32") |
778 ;'(ecb-wget-setup (quote cons)) |
779 ;'(ecb-wget-setup (quote cons)) |
779 ;(global-set-key (kbd "\e\eE") 'ecb-activate) |
780 ;(global-set-key (kbd "\e\eE") 'ecb-activate) |
780 |
781 |
781 ;; ====================================================================== |
782 ;; ====================================================================== |
782 ;;* Printing |
783 ;; Printing |
783 |
784 |
784 ;; Use Notepad to print plain text files to the default Windows printer |
785 ;; Use Notepad to print plain text files to the default Windows printer |
785 ;(setq lpr-command "notepad") |
786 ;(setq lpr-command "notepad") |
786 ;(setq lpr-headers-switches '("/p")) ; \ mis-use these |
787 ;(setq lpr-headers-switches '("/p")) ; \ mis-use these |
787 ;(setq lpr-switches nil) ; / two variables |
788 ;(setq lpr-switches nil) ; / two variables |
849 ;(setq cua-overwrite-cursor-color "red") |
850 ;(setq cua-overwrite-cursor-color "red") |
850 ;(setq cua-read-only-cursor-color "green") |
851 ;(setq cua-read-only-cursor-color "green") |
851 |
852 |
852 |
853 |
853 ;; ====================================================================== |
854 ;; ====================================================================== |
854 ;;* Backup |
855 ;; Backup |
855 |
856 |
856 ;; (setq |
857 ;; (setq |
857 ;; backup-by-copying t ; don't clobber symlinks |
858 ;; backup-by-copying t ; don't clobber symlinks |
858 ;; backup-directory-alist |
859 ;; backup-directory-alist |
859 ;; '(("." . "~/backup")) ; don't litter my fs tree |
860 ;; '(("." . "~/backup")) ; don't litter my fs tree |