(BYTE_CODE_QUIT): Check Vthrow_on_input.

731475e7 · Kim F. Storm · 5a073f50 · 731475e7
Commit 731475e7 authored Jun 03, 2005 by Kim F. Storm
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/bytecode.c src/bytecode.c +3 -0

No files found.
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -384,8 +384,11 @@ unmark_byte_stack ()
  do {							\
    if (!NILP (Vquit_flag) && NILP (Vinhibit_quit))	\
      {							\
+        Lisp_Object flag = Vquit_flag;			\
 	Vquit_flag = Qnil;				\
        BEFORE_POTENTIAL_GC ();				\
+	if (EQ (Vthrow_on_input, flag))			\
+	  Fthrow (Vthrow_on_input, Qnil);		\
 	Fsignal (Qquit, Qnil);				\
 	AFTER_POTENTIAL_GC ();				\
      }							\