# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962615603 0
# Node ID 29a64f84d736e97d71b806b54624a330cd2a81cf
# Parent  edb654a13bf12a746e0b0b0fce69099c14072f80
(te-process-output): Use walk-windows instead of
cycling through windows with next-window.

diff -r edb654a13bf1 -r 29a64f84d736 lisp/terminal.el
--- a/lisp/terminal.el	Mon Jul 03 09:13:06 2000 +0000
+++ b/lisp/terminal.el	Mon Jul 03 09:13:23 2000 +0000
@@ -991,11 +991,10 @@
 	     ;; 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)