diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-07-03 09:13:23 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-07-03 09:13:23 +0000 |
| commit | 8822bfb631aaedb65080c1dfc325a764f8bfb1e0 (patch) | |
| tree | ed66d094b21e500d6cbb699bb36fc23be231452a /lisp/terminal.el | |
| parent | f9cc39a188d4259f251bb654352bd1750b2d18f8 (diff) | |
| download | emacs-8822bfb631aaedb65080c1dfc325a764f8bfb1e0.tar.gz emacs-8822bfb631aaedb65080c1dfc325a764f8bfb1e0.tar.bz2 emacs-8822bfb631aaedb65080c1dfc325a764f8bfb1e0.zip | |
(te-process-output): Use walk-windows instead of
cycling through windows with next-window.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 9 |
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) |