(QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.

1 files changed, 19 insertions, 0 deletions

diff --git a/src/lisp.h b/src/lisp.h
index 72d24d79f05..b54668fb780 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1726,6 +1726,9 @@ extern char *stack_bottom;
    This is a good thing to do around a loop that has no side effects
    and (in particular) cannot call arbitrary Lisp code.  */
 
+#ifdef SYNC_INPUT
+extern void handle_async_input P_ ((void));
+extern int interrupt_input_pending;
 #define QUIT                                            \
   do {                                                  \
     if (!NILP (Vquit_flag) && NILP (Vinhibit_quit))     \
@@ -1733,8 +1736,24 @@ extern char *stack_bottom;
         Vquit_flag = Qnil;                              \
         Fsignal (Qquit, Qnil);                          \
       }                                                 \
+    else if (interrupt_input_pending)                   \
+      handle_async_input ();                            \
   } while (0)
 
+#else  /* not SYNC_INPUT */
+
+#define QUIT                                            \
+  do {                                                  \
+    if (!NILP (Vquit_flag) && NILP (Vinhibit_quit))     \
+      {                                                 \
+        Vquit_flag = Qnil;                              \
+        Fsignal (Qquit, Qnil);                          \
+      }                                                 \
+  } while (0)
+
+#endif  /* not SYNC_INPUT */
+
+
 /* Nonzero if ought to quit now.  */
 
 #define QUITP (!NILP (Vquit_flag) && NILP (Vinhibit_quit))