mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(comint-mode): Localy set scroll-conservatively.

Browse Source 
(comint-postoutput-scroll-to-bottom): comint-scroll-show-maximum-output
is active only when point is at end.
This commit is contained in:
Richard M. Stallman 2002-12-28 21:28:09 +00:00
parent f808da9ebb
commit 267f7053c4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/comint.el
View File

@ -501,6 +501,9 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
(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 @@ This function should be in the list `comint-output-filter-functions'."
;; 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)))