Added list of mode hooks for enabling scroll margin.
--- a/.emacs-my Mon Apr 26 17:07:08 2010 +0300
+++ b/.emacs-my Tue May 04 23:34:38 2010 +0300
@@ -33,6 +33,16 @@
lisp-mode-hook emacs-lisp-mode-hook)
"List of development mode hooks.")
+(defvar my-scroll-margin-mode-hook-list
+ '(
+ vc-dir-mode-hook
+ recentf-dialog-mode-hook
+ org-agenda-grid-mode-hook ; XXX for this item not worked!
+ log-view-mode-hook
+ diff-mode-hook
+ )
+ "List of mode hooks for enabling scroll margin.")
+
(defvar my-text-mode-list
'(outline-mode text-mode)
"List of text modes.")
@@ -227,8 +237,7 @@
(make-variable-buffer-local 'scroll-margin)
(mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))
;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4
- (append my-text-mode-hook-list my-devel-mode-hook-list
- '(recentf-mode-hook)) )
+ (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )
;; ----------------------------------------------------------------------
;; searching.