90 ;; (desktop-load-default) |
90 ;; (desktop-load-default) |
91 ;; (desktop-read) |
91 ;; (desktop-read) |
92 |
92 |
93 ;; ====================================================================== |
93 ;; ====================================================================== |
94 ;; standart/general settings. |
94 ;; standart/general settings. |
|
95 |
|
96 (if (boundp 'confirm-kill-emacs) |
|
97 (setq confirm-kill-emacs 'yes-or-no-p)) |
|
98 |
|
99 ;; Try to speed things up, especially in VM. |
|
100 (setq gc-cons-threshold 2000000) |
|
101 |
|
102 ;; Don't beep in my headphones! |
|
103 (setq ring-bell-function '(lambda () "Empty ring-bell-function." nil)) |
|
104 (setq visible-bell t) ; With default ring-bell-function in text terminal |
|
105 ; revert screen if press [end] or [home] |
|
106 |
|
107 ;; Prompt before evaluating local bits of lisp. This stops people |
|
108 ;; putting things at the end of files which delete all your files! |
|
109 (setq enable-local-variables t |
|
110 enable-local-eval 1) |
95 |
111 |
96 (setq kill-whole-line t) |
112 (setq kill-whole-line t) |
97 |
113 |
98 ;; show column & line numbers in status bar |
114 ;; show column & line numbers in status bar |
99 (setq column-number-mode t) |
115 (setq column-number-mode t) |
309 |
325 |
310 ;; To open from command line file, which names has extended opcode |
326 ;; To open from command line file, which names has extended opcode |
311 ;; (set-file-name-coding-system 'cp1251) |
327 ;; (set-file-name-coding-system 'cp1251) |
312 |
328 |
313 ;; (set-language-environment "Russian") ; XXX not used as set default coding system to koi8-r. |
329 ;; (set-language-environment "Russian") ; XXX not used as set default coding system to koi8-r. |
314 |
|
315 ;; ====================================================================== |
|
316 ;; |
|
317 ;; NON-STANDARD VARIABLES |
|
318 |
|
319 ;; ====================================================================== |
|
320 ;; |
|
321 ;; STANDARD VARIABLES |
|
322 |
|
323 (if (boundp 'confirm-kill-emacs) |
|
324 (setq confirm-kill-emacs 'yes-or-no-p)) |
|
325 |
|
326 ;; Try to speed things up, especially in VM. |
|
327 (setq gc-cons-threshold 2000000) |
|
328 |
|
329 ;; Don't beep in my headphones! |
|
330 (setq ring-bell-function '(lambda () "Empty ring-bell-function." nil)) |
|
331 (setq visible-bell t) ; With default ring-bell-function in text terminal |
|
332 ; revert screen if press [end] or [home] |
|
333 |
|
334 ;; Prompt before evaluating local bits of lisp. This stops people |
|
335 ;; putting things at the end of files which delete all your files! |
|
336 (setq enable-local-variables t |
|
337 enable-local-eval 1) |
|
338 |
|
339 ;; ====================================================================== |
|
340 ;; STANDARD LIBRARIES |
|
341 |
330 |
342 ;; ---------------------------------------------------------------------- |
331 ;; ---------------------------------------------------------------------- |
343 ;; dired. |
332 ;; dired. |
344 |
333 |
345 (setq dired-dwim-target t) |
334 (setq dired-dwim-target t) |