equal
deleted
inserted
replaced
30 (defvar my-devel-mode-hook-list |
30 (defvar my-devel-mode-hook-list |
31 '(sh-mode-hook script-mode-hook java-mode-hook c-mode-hook |
31 '(sh-mode-hook script-mode-hook java-mode-hook c-mode-hook |
32 makefile-mode-hook makefile-gmake-mode-hook python-mode-hook |
32 makefile-mode-hook makefile-gmake-mode-hook python-mode-hook |
33 lisp-mode-hook emacs-lisp-mode-hook) |
33 lisp-mode-hook emacs-lisp-mode-hook) |
34 "List of development mode hooks.") |
34 "List of development mode hooks.") |
|
35 |
|
36 (defvar my-scroll-margin-mode-hook-list |
|
37 '( |
|
38 vc-dir-mode-hook |
|
39 recentf-dialog-mode-hook |
|
40 org-agenda-grid-mode-hook ; XXX for this item not worked! |
|
41 log-view-mode-hook |
|
42 diff-mode-hook |
|
43 ) |
|
44 "List of mode hooks for enabling scroll margin.") |
35 |
45 |
36 (defvar my-text-mode-list |
46 (defvar my-text-mode-list |
37 '(outline-mode text-mode) |
47 '(outline-mode text-mode) |
38 "List of text modes.") |
48 "List of text modes.") |
39 |
49 |
225 |
235 |
226 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
236 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
227 (make-variable-buffer-local 'scroll-margin) |
237 (make-variable-buffer-local 'scroll-margin) |
228 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
238 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
229 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
239 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
230 (append my-text-mode-hook-list my-devel-mode-hook-list |
240 (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) ) |
231 '(recentf-mode-hook)) ) |
|
232 |
241 |
233 ;; ---------------------------------------------------------------------- |
242 ;; ---------------------------------------------------------------------- |
234 ;; searching. |
243 ;; searching. |
235 |
244 |
236 (setq case-fold-search t) |
245 (setq case-fold-search t) |