Mercurial > emacs
comparison lisp/terminal.el @ 30003:29a64f84d736
(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 | 28211e20b0e4 |
| children | e54aee254198 |
comparison
equal
deleted
inserted
replaced
| 30002:edb654a13bf1 | 30003:29a64f84d736 |
|---|---|
| 989 (and preemptible | 989 (and preemptible |
| 990 (input-pending-p) | 990 (input-pending-p) |
| 991 ;; preemptible output! Oh my!! | 991 ;; preemptible output! Oh my!! |
| 992 (throw 'te-process-output t))))) | 992 (throw 'te-process-output t))))) |
| 993 ;; We must update window-point in every window displaying our buffer | 993 ;; We must update window-point in every window displaying our buffer |
| 994 (let* ((s (selected-window)) | 994 (walk-windows (lambda (w) |
| 995 (w s)) | 995 (when (and (not (eq w (selected-window))) |
| 996 (while (not (eq s (setq w (next-window w)))) | 996 (eq (window-buffer w) (current-buffer))) |
| 997 (if (eq (window-buffer w) (current-buffer)) | 997 (set-window-point w (point)))))) |
| 998 (set-window-point w (point)))))) | |
| 999 | 998 |
| 1000 (defun te-get-char () | 999 (defun te-get-char () |
| 1001 (if (cdr te-pending-output) | 1000 (if (cdr te-pending-output) |
| 1002 (let ((start (car te-pending-output)) | 1001 (let ((start (car te-pending-output)) |
| 1003 (string (car (cdr te-pending-output)))) | 1002 (string (car (cdr te-pending-output)))) |