# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1120830282 0
# Node ID 20da0da3a9560cc94a5725214903336319682adb
# Parent  f7e7dd269327f99f98987a0924e21072f3831e38
(comint-postoutput-scroll-to-bottom)
(comint-show-maximum-output): Take scroll-margin into consideration.

diff -r f7e7dd269327 -r 20da0da3a956 lisp/comint.el
--- a/lisp/comint.el	Fri Jul 08 10:07:39 2005 +0000
+++ b/lisp/comint.el	Fri Jul 08 13:44:42 2005 +0000
@@ -1818,7 +1818,7 @@
 			      (= (point) (point-max)))
 			 (save-excursion
 			   (goto-char (point-max))
-			   (recenter -1)))
+			   (recenter (- -1 scroll-margin))))
 		     (select-window selected)))))
 	     nil t))
       (set-buffer current))))
@@ -1852,7 +1852,7 @@
   "Put the end of the buffer at the bottom of the window."
   (interactive)
   (goto-char (point-max))
-  (recenter -1))
+  (recenter (- -1 scroll-margin)))
 
 (defun comint-get-old-input-default ()
   "Default for `comint-get-old-input'.