procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(comint-postoutput-scroll-to-bottom)

Browse source 
(comint-show-maximum-output): Take scroll-margin into consideration.
This commit is contained in:
Eli Zaretskii 2005-07-08 13:44:42 +00:00
parent 3c88bdc560
commit ae5cf18e42
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/comint.el
View file

@ -1818,7 +1818,7 @@ This function should be in the list `comint-output-filter-functions'."
(= (point) (point-max))) (= (point) (point-max)))
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(recenter -1))) (recenter (- -1 scroll-margin))))
(select-window selected))))) (select-window selected)))))
nil t)) nil t))
(set-buffer current)))) (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." "Put the end of the buffer at the bottom of the window."
(interactive) (interactive)
(goto-char (point-max)) (goto-char (point-max))
(recenter -1)) (recenter (- -1 scroll-margin)))
(defun comint-get-old-input-default () (defun comint-get-old-input-default ()
"Default for `comint-get-old-input'. "Default for `comint-get-old-input'.