From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Mar 1996 03:51:46 +0000 (+0000)
Subject: (wait_reading_process_input):
X-Git-Tag: emacs-19.34~1075
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5de50bfbba966eb0e17045d4804e99618d2d8ba4;p=emacs.git

(wait_reading_process_input):
Redisplay after timer_check if timers were actually run.
---

diff --git a/src/process.c b/src/process.c
index c9c7aa79545..1ff26c83259 100644
--- a/src/process.c
+++ b/src/process.c
@@ -251,6 +251,7 @@ int proc_buffered_char[MAXDESC];
 static Lisp_Object get_process ();
 
 extern EMACS_TIME timer_check ();
+extern int timers_run;
 
 /* Maximum number of bytes to send to a pty without an eof.  */
 static int pty_max_bytes;
@@ -2078,7 +2079,10 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
       if (read_kbd >= 0)
 	{
 	  EMACS_TIME timer_delay;
+	  int old_timers_run = timers_run;
 	  timer_delay = timer_check (1);
+	  if (timers_run != old_timers_run && do_display)
+	    redisplay_preserve_echo_area ();
 	  if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1)
 	    {
 	      EMACS_TIME difference;