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

don't bother with walk-windows; just hack the selected window.

1 files changed, 12 insertions, 10 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index bdb8867fb23..d9e48f19734 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.