Commit 0744bf64 authored by Richard M. Stallman's avatar Richard M. Stallman

(comint-preinput-scroll-to-bottom): If SCROLL is `this',

don't bother with walk-windows; just hack the selected window.
parent 9cd78473
......@@ -1172,16 +1172,18 @@ This function should be a pre-command hook."
(scroll comint-scroll-to-bottom-on-input))
(if (and process (< (point) (process-mark process))
scroll (not (window-minibuffer-p selected)))
(walk-windows
(function (lambda (window)
(if (and (eq (window-buffer window) current)
(or (eq scroll t) (eq scroll 'all)
(and (eq scroll 'this) (eq selected window))))
(progn
(select-window window)
(goto-char (point-max))
(select-window selected)))))
'not-minibuf t)))))
(if (eq scroll 'this)
(goto-char (point-max))
(walk-windows
(function (lambda (window)
(if (and (eq (window-buffer window) current)
(or (eq scroll t) (eq scroll 'all)
(and (eq scroll 'this) (eq selected window))))
(progn
(select-window window)
(goto-char (point-max))
(select-window selected)))))
'not-minibuf t))))))
(defun comint-postoutput-scroll-to-bottom (string)
"Go to the end of buffer in all windows showing it.
......
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