diff options
| author | Richard M. Stallman <[email protected]> | 1993-11-23 07:52:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-11-23 07:52:33 +0000 |
| commit | 0744bf6404c89394dc3577556f923736ad8eb82c (patch) | |
| tree | ff6282587637d2e860558cba17f2890d996227aa | |
| parent | 9cd784736483f223873f3c04e9198e8913da16dc (diff) | |
(comint-preinput-scroll-to-bottom): If SCROLL is `this',
don't bother with walk-windows; just hack the selected window.
| -rw-r--r-- | lisp/comint.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index bdb8867fb2..d9e48f1973 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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. |