changeset 53659:291acfb4bf40

(wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 21 Jan 2004 05:27:58 +0000
parents c6460069583e
children f32ec57f0445
files src/process.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Wed Jan 21 05:24:01 2004 +0000
+++ b/src/process.c	Wed Jan 21 05:27:58 2004 +0000
@@ -4080,6 +4080,10 @@
 	 Otherwise, do pending quit if requested.  */
       if (XINT (read_kbd) >= 0)
 	QUIT;
+#ifdef SYNC_INPUT
+      else if (interrupt_input_pending)
+	handle_async_input ();
+#endif
 
       /* Exit now if the cell we're waiting for became non-nil.  */
       if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))