From 267f7053c476847f850d631fff49e7808f750acb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 28 Dec 2002 21:28:09 +0000 Subject: [PATCH] (comint-mode): Localy set scroll-conservatively. (comint-postoutput-scroll-to-bottom): comint-scroll-show-maximum-output is active only when point is at end. --- lisp/comint.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/comint.el b/lisp/comint.el index af5033b41d..0577d96a61 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))) -- 2.20.1