mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(term-emulate-terminal): Perform redisplay after the process filter

Browse Source 
has finished running.
This commit is contained in:
Chong Yidong 2008-04-21 20:28:45 +00:00
parent c7a547f73c
commit 1b242afeb3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/term.el
View File

@ -3049,7 +3049,11 @@ See `term-prompt-regexp'."
(forward-line (- term-buffer-maximum-size))
(beginning-of-line)
(delete-region (point-min) (point))))
(set-marker save-marker nil)))))
(set-marker save-marker nil)))
;; This might be expensive, but we need it to handle something
;; like `sleep 5 | less -c' in more-or-less real time.
(when (get-buffer-window (current-buffer))
(redisplay))))
(defun term-handle-deferred-scroll ()
(let ((count (- (term-current-row) term-height)))