--- a/.emacs-my Sun Mar 14 20:28:36 2010 +0200
+++ b/.emacs-my Sun Mar 14 20:47:14 2010 +0200
@@ -152,18 +152,17 @@
;; ----------------------------------------------------------------------
;; scrolling.
+(defvar my-scroll-margin 4)
+
(setq-default
- ;; When scroll-step is 1 and if first displayed line overlapped and you go up one line or fisrt
- ;; non-displayed line at bottom overlapped and you go down one line moving cause displaing engine
- ;; redisplay windows content and center point as done by 'C-l'. So take it greater.
- scroll-step 3
- scroll-conservatively 100
+ scroll-step 1
+ scroll-conservatively my-scroll-margin
scroll-preserve-screen-position t
)
;; Set margin only for desired modes! Do not frustrate calendar any more.
(make-variable-buffer-local 'scroll-margin)
-(mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin 4))))
+(mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))
(delete-dups (append my-text-mode-hook-list my-devel-mode-hook-list
'(recentf-mode-hook))) )