Mercurial > emacs

changeset 30003:29a64f84d736

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(te-process-output): Use walk-windows instead of cycling through windows with next-window.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 03 Jul 2000 09:13:23 +0000
parents edb654a13bf1
children 531536b6475b
files lisp/terminal.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)