diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-07-09 02:32:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-07-09 02:32:02 +0000 |
| commit | db7fa396bda9d18bddf9732826f53b52fa2203e9 (patch) | |
| tree | 1e243a54ecef8dd8d9d9e6c06373c46500d434c4 | |
| parent | 340fe109c9367d147ae56aadb9e8af04a66bac5f (diff) | |
| download | emacs-db7fa396bda9d18bddf9732826f53b52fa2203e9.tar.gz | |
(term-emulate-terminal): Avoid infinite loop
in strange case where minibuffer window is selected but not active.
| -rw-r--r-- | lisp/term.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/term.el b/lisp/term.el index ac6201c8b33..262686cf9f2 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -2700,6 +2700,7 @@ See `term-prompt-regexp'." (let* ((previous-buffer (current-buffer)) (i 0) char funny count save-point save-marker old-point temp win (selected (selected-window)) + last-win (str-length (length str))) (unwind-protect (progn @@ -2957,6 +2958,11 @@ See `term-prompt-regexp'." ;; Scroll each window displaying the buffer but (by default) ;; only if the point matches the process-mark we started with. (setq win selected) + ;; Avoid infinite loop in strange case where minibuffer window + ;; is selected but not active. + (while (window-minibuffer-p win) + (setq win (next-window win nil t))) + (setq last-win win) (while (progn (setq win (next-window win nil t)) (if (eq (window-buffer win) (process-buffer proc)) @@ -2982,7 +2988,7 @@ See `term-prompt-regexp'." (save-excursion (goto-char (point-max)) (recenter -1))))) - (not (eq win selected)))) + (not (eq win last-win)))) ;;; Stolen from comint.el and adapted -mm (if (> term-buffer-maximum-size 0) |