# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1041110889 0
# Node ID 0bf251ecfd1a88ea965842faf4bb4e4e2b8a798c
# Parent  5f0ef23b7e51f74c17bc0b8687d5f2f13b3d14a4
(comint-mode): Localy set scroll-conservatively.
(comint-postoutput-scroll-to-bottom): comint-scroll-show-maximum-output
is active only when point is at end.

diff -r 5f0ef23b7e51 -r 0bf251ecfd1a lisp/comint.el
--- 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)))