From ae5cf18e426ab831baf530f178372b84d24d93dd Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 8 Jul 2005 13:44:42 +0000 Subject: [PATCH] (comint-postoutput-scroll-to-bottom) (comint-show-maximum-output): Take scroll-margin into consideration. --- lisp/comint.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 188af8a3b0b..99ea2c44436 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1818,7 +1818,7 @@ This function should be in the list `comint-output-filter-functions'." (= (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 @@ This function could be on `comint-output-filter-functions' or bound to a key." "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'. -- 2.39.2