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

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

diff --git a/lisp/comint.el b/lisp/comint.el
index bdb8867fb23ef506b7fdc9403ead333708075b1e..d9e48f197345c7dc773c9ab2dc06e83d93618889 100644 (file)
--- 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.