(wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.

43ff45a0 · Stefan Monnier · 35d3b513 · 43ff45a0
Commit 43ff45a0 authored Jan 21, 2004 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

src/process.c src/process.c +4 -0

No files found.
--- a/src/process.c
+++ b/src/process.c
@@ -4080,6 +4080,10 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
 	 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)))