equal
deleted
inserted
replaced
12 ;; ====================================================================== |
12 ;; ====================================================================== |
13 ;; Debugging. |
13 ;; Debugging. |
14 |
14 |
15 ;; Shut off message buffer by setting nil. |
15 ;; Shut off message buffer by setting nil. |
16 (setq message-log-max 100) |
16 (setq message-log-max 100) |
17 |
|
18 ;;(add-hook 'after-init-hook |
|
19 ;; '(lambda () (setq debug-on-error t))) |
|
20 ;;(debug-on-entry 'command-line-1) |
|
21 |
17 |
22 ;; Set the debug option to enable a backtrace when a problem occurs. |
18 ;; Set the debug option to enable a backtrace when a problem occurs. |
23 (setq debug-on-error nil) ; t/nil |
19 (setq debug-on-error nil) ; t/nil |
24 |
20 |
25 ;; ====================================================================== |
21 ;; ====================================================================== |
30 (tool-bar-mode -1) |
26 (tool-bar-mode -1) |
31 (tooltip-mode -1) |
27 (tooltip-mode -1) |
32 (scroll-bar-mode 1) |
28 (scroll-bar-mode 1) |
33 |
29 |
34 (if window-system |
30 (if window-system |
35 ;; Для X-window и Win |
31 ;; For graphical environment. |
36 (progn |
32 (progn |
37 ;;установка цветов экрана |
33 ;;установка цветов экрана |
38 (set-background-color "white") |
34 (set-background-color "white") |
39 (set-foreground-color "black") |
35 (set-foreground-color "black") |
40 ;;установка режимов работы курсора |
36 ;;установка режимов работы курсора |
43 ;; курсор не мигает! |
39 ;; курсор не мигает! |
44 ;; (blink-cursor-mode nil) |
40 ;; (blink-cursor-mode nil) |
45 ;; (set-face-font 'default "7x14") |
41 ;; (set-face-font 'default "7x14") |
46 (fringe-mode 'default) |
42 (fringe-mode 'default) |
47 ) |
43 ) |
48 ;; Для tty |
44 ;; For tty. |
49 (progn |
45 (progn |
50 ) |
46 ) |
51 ) |
47 ) |
|
48 |
|
49 ;; See what I am typing immediately (for keystroke in minibuffer). |
|
50 (setq echo-keystrokes 0.2) |
52 |
51 |
53 ;; ---------------------------------------------------------------------- |
52 ;; ---------------------------------------------------------------------- |
54 ;; Silent runing. |
53 ;; Silent runing. |
55 |
54 |
56 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1 |
55 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1 |
123 scroll-margin 2 |
122 scroll-margin 2 |
124 scroll-preserve-screen-position t |
123 scroll-preserve-screen-position t |
125 ) |
124 ) |
126 |
125 |
127 ;; ---------------------------------------------------------------------- |
126 ;; ---------------------------------------------------------------------- |
|
127 ;; search |
|
128 (setq case-fold-search t) |
|
129 |
|
130 ;; ---------------------------------------------------------------------- |
|
131 ;; *Occur* |
|
132 (global-set-key [f7] 'occur) ; Key binding as in mc |
|
133 |
|
134 ;; ---------------------------------------------------------------------- |
128 ;; *Text* |
135 ;; *Text* |
129 (setq default-major-mode 'text-mode) |
136 (setq default-major-mode 'text-mode) |
130 |
137 |
131 ;; ---------------------------------------------------------------------- |
138 ;; ---------------------------------------------------------------------- |
132 ;; syntax highlighting |
139 ;; syntax highlighting |
206 (global-set-key [f4] 'ispell-buffer) |
213 (global-set-key [f4] 'ispell-buffer) |
207 (global-set-key [S-f6] 'rename-buffer) |
214 (global-set-key [S-f6] 'rename-buffer) |
208 (global-set-key [f8] 'kill-this-buffer) |
215 (global-set-key [f8] 'kill-this-buffer) |
209 (global-set-key [M-f4] 'save-buffers-kill-emacs) |
216 (global-set-key [M-f4] 'save-buffers-kill-emacs) |
210 (global-set-key [f6] 'toggle-truncate-lines) |
217 (global-set-key [f6] 'toggle-truncate-lines) |
211 |
|
212 ;; *Occur* |
|
213 (global-set-key [f7] 'occur) ; Key binding as in mc |
|
214 |
218 |
215 ;; frames, windows manipulation, switch buffers |
219 ;; frames, windows manipulation, switch buffers |
216 (global-set-key [?\C-x right] 'next-buffer) |
220 (global-set-key [?\C-x right] 'next-buffer) |
217 (global-set-key [?\C-x left] 'previous-buffer) |
221 (global-set-key [?\C-x left] 'previous-buffer) |
218 |
222 |