From 0744bf6404c89394dc3577556f923736ad8eb82c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Nov 1993 07:52:33 +0000 Subject: [PATCH] (comint-preinput-scroll-to-bottom): If SCROLL is `this', don't bother with walk-windows; just hack the selected window. --- lisp/comint.el | 22 ++++++++++++---------- 1 file 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. -- 2.20.1