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

has finished running.

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