# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1208809725 0
# Node ID c09516cc5cf4939597f41d54e2999d142687fa45
# Parent  28b476a64d4cfa8a858a8974ef3be597559cbf4f
(term-emulate-terminal): Perform redisplay after the process filter
has finished running.

diff -r 28b476a64d4c -r c09516cc5cf4 lisp/term.el
--- 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)))