Mercurial > emacs
changeset 48987:0bf251ecfd1a
(comint-mode): Localy set scroll-conservatively.
(comint-postoutput-scroll-to-bottom): comint-scroll-show-maximum-output
is active only when point is at end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 Dec 2002 21:28:09 +0000 |
| parents | 5f0ef23b7e51 |
| children | d50289791f55 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Sat Dec 28 21:26:46 2002 +0000 +++ b/lisp/comint.el Sat Dec 28 21:28:09 2002 +0000 @@ -501,6 +501,9 @@ (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 @@ ;; 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)))