diff options
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) |