(te-process-output): Use walk-windows instead of

cycling through windows with next-window.

1 files 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)