# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754041153 0
# Node ID 23f6d57ced16d8ab496d5c6cf1c22018f5bfeab9
# Parent  864d3ca7f2b645c57c0ee817d77bf814f0727e7d
(comint-preinput-scroll-to-bottom): If SCROLL is `this',
don't bother with walk-windows; just hack the selected window.

diff -r 864d3ca7f2b6 -r 23f6d57ced16 lisp/comint.el
--- 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.