Mercurial > emacs
changeset 94213:c09516cc5cf4
(term-emulate-terminal): Perform redisplay after the process filter
has finished running.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 21 Apr 2008 20:28:45 +0000 |
| parents | 28b476a64d4c |
| children | c8b73a9f4c36 |
| files | lisp/term.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term.el Mon Apr 21 20:28:20 2008 +0000 +++ b/lisp/term.el Mon Apr 21 20:28:45 2008 +0000 @@ -3049,7 +3049,11 @@ (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)))