diff lisp/comint.el @ 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 fb8f2a3f2178
children 67b4642532bb
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.