Commit 267f7053 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(comint-postoutput-scroll-to-bottom): comint-scroll-show-maximum-output
is active only when point is at end.
parent f808da9e
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment