(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 e96bad98c86a373932da72fccb84e5a302941521..59b4fb7769b111c66db9d2a575c3ba7b6261cfd6 100644 (file)
--- 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)