equal
deleted
inserted
replaced
461 (message "scrolling") |
461 (message "scrolling") |
462 |
462 |
463 (defvar my-scroll-margin 4) |
463 (defvar my-scroll-margin 4) |
464 |
464 |
465 (setq-default |
465 (setq-default |
466 scroll-step 1 |
466 ;; Set to zero as this recomment documentation. |
467 scroll-conservatively my-scroll-margin |
467 scroll-step 0 |
|
468 ;; If the value is greater than 100, redisplay will never recenter point, but |
|
469 ;; will always scroll just enough text to bring point into view |
|
470 scroll-conservatively 1000 |
468 scroll-preserve-screen-position t |
471 scroll-preserve-screen-position t |
469 ) |
472 ) |
470 |
473 |
471 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
474 ;; Set margin only for desired modes! Do not frustrate calendar any more. |
472 (make-variable-buffer-local 'scroll-margin) |
475 (make-variable-buffer-local 'scroll-margin) |