equal
deleted
inserted
replaced
150 (global-set-key "\C-x\C-b" 'ibuffer) |
150 (global-set-key "\C-x\C-b" 'ibuffer) |
151 |
151 |
152 ;; ---------------------------------------------------------------------- |
152 ;; ---------------------------------------------------------------------- |
153 ;; scrolling. |
153 ;; scrolling. |
154 |
154 |
|
155 (defvar my-scroll-margin 4) |
|
156 |
155 (setq-default |
157 (setq-default |
156 ;; When scroll-step is 1 and if first displayed line overlapped and you go up one line or fisrt |
158 scroll-step 1 |
157 ;; non-displayed line at bottom overlapped and you go down one line moving cause displaing engine |
159 scroll-conservatively my-scroll-margin |
158 ;; redisplay windows content and center point as done by 'C-l'. So take it greater. |
|
159 scroll-step 3 |
|
160 scroll-conservatively 100 |
|
161 scroll-preserve-screen-position t |
160 scroll-preserve-screen-position t |
162 ) |
161 ) |
163 |
162 |
164 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
163 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
165 (make-variable-buffer-local 'scroll-margin) |
164 (make-variable-buffer-local 'scroll-margin) |
166 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin 4)))) |
165 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
167 (delete-dups (append my-text-mode-hook-list my-devel-mode-hook-list |
166 (delete-dups (append my-text-mode-hook-list my-devel-mode-hook-list |
168 '(recentf-mode-hook))) ) |
167 '(recentf-mode-hook))) ) |
169 |
168 |
170 ;; ---------------------------------------------------------------------- |
169 ;; ---------------------------------------------------------------------- |
171 ;; searching. |
170 ;; searching. |