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

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

Browse source 
don't bother with walk-windows; just hack the selected window.
This commit is contained in:
Richard M. Stallman 1993-11-23 07:52:33 +00:00
parent 9cd7847364
commit 0744bf6404
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/comint.el
View file

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