equal
deleted
inserted
replaced
65 (add-to-list 'initial-frame-alist (cons 'height ty)) |
65 (add-to-list 'initial-frame-alist (cons 'height ty)) |
66 ) ) |
66 ) ) |
67 |
67 |
68 (menu-bar-mode -1) |
68 (menu-bar-mode -1) |
69 (tool-bar-mode -1) |
69 (tool-bar-mode -1) |
70 (tooltip-mode -1) |
70 (when (>= emacs-major-version 22) (tooltip-mode -1)) |
71 (scroll-bar-mode 1) |
71 (scroll-bar-mode 1) |
72 |
72 |
73 (setq frame-title-format "Emacs - %b") |
73 (setq frame-title-format "Emacs - %b") |
74 |
74 |
75 (setq default-header-line-format nil) |
75 (setq default-header-line-format nil) |
141 |
141 |
142 (require 'server) |
142 (require 'server) |
143 (when (and (= emacs-major-version 23) (= emacs-minor-version 1) (equal window-system 'w32)) |
143 (when (and (= emacs-major-version 23) (= emacs-minor-version 1) (equal window-system 'w32)) |
144 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows. |
144 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows. |
145 |
145 |
146 (server-start) |
146 (when (>= emacs-major-version 22) |
|
147 (server-start)) |
147 |
148 |
148 ;; (desktop-load-default) |
149 ;; (desktop-load-default) |
149 ;; (desktop-read) |
150 ;; (desktop-read) |
150 |
151 |
151 ;; ====================================================================== |
152 ;; ====================================================================== |
221 ) |
222 ) |
222 |
223 |
223 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
224 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
224 (make-variable-buffer-local 'scroll-margin) |
225 (make-variable-buffer-local 'scroll-margin) |
225 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
226 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
226 (delete-dups (append my-text-mode-hook-list my-devel-mode-hook-list |
227 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
227 '(recentf-mode-hook))) ) |
228 (append my-text-mode-hook-list my-devel-mode-hook-list |
|
229 '(recentf-mode-hook)) ) |
228 |
230 |
229 ;; ---------------------------------------------------------------------- |
231 ;; ---------------------------------------------------------------------- |
230 ;; searching. |
232 ;; searching. |
231 |
233 |
232 (setq case-fold-search t) |
234 (setq case-fold-search t) |
269 |
271 |
270 ;; Order of next items is important, (assignment must done before pc-selection-mode enabled). |
272 ;; Order of next items is important, (assignment must done before pc-selection-mode enabled). |
271 (require 'pc-select) |
273 (require 'pc-select) |
272 (setq pc-select-selection-keys-only t) ; To avoid some key bindings as F6, etc. |
274 (setq pc-select-selection-keys-only t) ; To avoid some key bindings as F6, etc. |
273 (setq pc-select-meta-moves-sexps t) |
275 (setq pc-select-meta-moves-sexps t) |
274 (pc-selection-mode 1) |
276 (cond |
|
277 ((= emacs-major-version 21) (pc-selection-mode)) |
|
278 ((>= emacs-major-version 22) (pc-selection-mode 1)) |
|
279 ) |
275 |
280 |
276 (when (eq window-system 'x) |
281 (when (eq window-system 'x) |
277 (setq x-select-enable-clipboard t) ; for Emacs 21.2.1 and newer |
282 (setq x-select-enable-clipboard t) ; for Emacs 21.2.1 and newer |
278 ) |
283 ) |
279 |
284 |
378 |
383 |
379 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
384 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
380 (cond |
385 (cond |
381 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
386 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
382 (progn |
387 (progn |
383 (set-selection-coding-system 'utf-16le-dos) |
388 (set-selection-coding-system 'utf-16-le-dos) |
384 (prefer-coding-system 'utf-8-unix) |
389 (prefer-coding-system 'utf-8-unix) |
385 (prefer-coding-system 'cp1251-dos) |
390 (prefer-coding-system 'cp1251-dos) |
386 )) |
391 )) |
387 ((equal window-system 'x) |
392 ((equal window-system 'x) |
388 (progn |
393 (progn |