From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 3 Jul 2000 09:13:23 +0000 (+0000)
Subject: (te-process-output): Use walk-windows instead of
X-Git-Tag: emacs-pretest-21.0.90~3014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8822bfb631aaedb65080c1dfc325a764f8bfb1e0;p=emacs.git

(te-process-output): Use walk-windows instead of
cycling through windows with next-window.
---

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)