diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/term.el b/lisp/term.el index 135f74d4f52..4fe3c4d0532 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -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))) |