Mercurial > emacs
changeset 5122:23f6d57ced16
(comint-preinput-scroll-to-bottom): If SCROLL is `this',
don't bother with walk-windows; just hack the selected window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Nov 1993 07:52:33 +0000 |
| parents | 864d3ca7f2b6 |
| children | 4bf8c101aaef |
| files | lisp/comint.el |
| diffstat | 1 files changed, 12 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Tue Nov 23 07:11:22 1993 +0000 +++ b/lisp/comint.el Tue Nov 23 07:52:33 1993 +0000 @@ -1172,16 +1172,18 @@ (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.