# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738371947 0
# Node ID 98505a819898dda914a0335a3914f42ffe012eef
# Parent  603e39319c86f0dc10f8bc1607fb1818e3b51fc4
(wait_reading_process_input): Call swallow_events.

diff -r 603e39319c86 -r 98505a819898 src/process.c
--- a/src/process.c	Tue May 25 22:59:26 1993 +0000
+++ b/src/process.c	Tue May 25 23:19:07 1993 +0000
@@ -1875,7 +1875,11 @@
 	 to give it higher priority than subprocesses */
 
       if (XINT (read_kbd) && detect_input_pending ())
-	break;
+	{
+	  swallow_events ();
+	  if (detect_input_pending ())
+	    break;
+	}
 
       /* Exit now if the cell we're waiting for became non-nil.  */
       if (wait_for_cell && ! NILP (*wait_for_cell))