mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-28 10:51:29 -08:00
Code Issues Projects Releases Wiki Activity

(term-emulate-terminal): Avoid infinite loop

Browse source 
in strange case where minibuffer window is selected but not active.
This commit is contained in:
Richard M. Stallman 1999-07-09 02:32:02 +00:00
parent 340fe109c9
commit db7fa396bd
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/term.el
View file

@ -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)