changeset 18230:2f1f942f25ca

(wait_reading_process_input): Return if unread events appear.
author Richard M. Stallman <rms@gnu.org>
date Fri, 13 Jun 1997 00:45:19 +0000
parents d8db4d037677
children 7f3969697013
files src/process.c
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Thu Jun 12 18:42:28 1997 +0000
+++ b/src/process.c	Fri Jun 13 00:45:19 1997 +0000
@@ -2248,6 +2248,11 @@
 	      goto retry;
 	    }
 
+	  /* If there is unread keyboard input, also return.  */
+	  if (XINT (read_kbd) != 0
+	      && requeued_events_pending_p ())
+	    break;
+
 	  if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1)
 	    {
 	      EMACS_TIME difference;
@@ -2408,6 +2413,11 @@
 	    break;
 	}
 
+      /* If there is unread keyboard input, also return.  */
+      if (XINT (read_kbd) != 0
+	  && requeued_events_pending_p ())
+	break;
+
       /* If wait_for_cell. check for keyboard input
 	 but don't run any timers.
 	 ??? (It seems wrong to me to check for keyboard