From 8822bfb631aaedb65080c1dfc325a764f8bfb1e0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Jul 2000 09:13:23 +0000 Subject: [PATCH] (te-process-output): Use walk-windows instead of cycling through windows with next-window. --- lisp/terminal.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/terminal.el b/lisp/terminal.el index e96bad98c86..59b4fb7769b 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -991,11 +991,10 @@ move to start of new line, clear to end of line." ;; preemptible output! Oh my!! (throw 'te-process-output t))))) ;; We must update window-point in every window displaying our buffer - (let* ((s (selected-window)) - (w s)) - (while (not (eq s (setq w (next-window w)))) - (if (eq (window-buffer w) (current-buffer)) - (set-window-point w (point)))))) + (walk-windows (lambda (w) + (when (and (not (eq w (selected-window))) + (eq (window-buffer w) (current-buffer))) + (set-window-point w (point)))))) (defun te-get-char () (if (cdr te-pending-output) -- 2.39.2