diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-12-28 21:28:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-12-28 21:28:09 +0000 |
| commit | 267f7053c476847f850d631fff49e7808f750acb (patch) | |
| tree | 4f1f7db7ec9de98548bd506fbe3e3dac5c30c628 /lisp | |
| parent | f808da9ebbd556beb720c1b3ca977d2db3c9c751 (diff) | |
| download | emacs-267f7053c476847f850d631fff49e7808f750acb.tar.gz | |
(comint-mode): Localy set scroll-conservatively.
(comint-postoutput-scroll-to-bottom): comint-scroll-show-maximum-output
is active only when point is at end.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/comint.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index af5033b41d3..0577d96a61e 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -501,6 +501,9 @@ Entry to this mode runs the hooks on `comint-mode-hook'." (make-local-variable 'comint-scroll-to-bottom-on-input) (make-local-variable 'comint-scroll-to-bottom-on-output) (make-local-variable 'comint-scroll-show-maximum-output) + ;; This makes it really work to keep point at the bottom. + (make-local-variable 'scroll-conservatively) + (setq scroll-conservatively 10000) (add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t) (make-local-variable 'comint-ptyp) (make-local-variable 'comint-process-echoes) @@ -1753,7 +1756,7 @@ This function should be in the list `comint-output-filter-functions'." ;; Optionally scroll so that the text ;; ends at the bottom of the window. (if (and comint-scroll-show-maximum-output - (>= (point) (process-mark process))) + (= (point) (point-max))) (save-excursion (goto-char (point-max)) (recenter -1))) |