(wait_reading_process_input): Return if unread events appear.

diff --git a/src/process.c b/src/process.c
index 1b8174299ff8c778110291486f79079e9f1285f1..a9da5b1f72555dee05b844a07e98bd686c5c6a73 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -2248,6 +2248,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
              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 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
            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