# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866162719 0
# Node ID 2f1f942f25ca6b799a446d4d00394941411120b9
# Parent  d8db4d037677752899dc0a803421258ca2528daf
(wait_reading_process_input): Return if unread events appear.

diff -r d8db4d037677 -r 2f1f942f25ca src/process.c
--- 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