changeset 64169:20da0da3a956

(comint-postoutput-scroll-to-bottom) (comint-show-maximum-output): Take scroll-margin into consideration.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 08 Jul 2005 13:44:42 +0000
parents f7e7dd269327
children 7f2745a4e8c5
files lisp/comint.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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'.