From: Kim F. Storm <storm@cua.dk>
Date: Fri, 3 Jun 2005 23:02:30 +0000 (+0000)
Subject: (BYTE_CODE_QUIT): Check Vthrow_on_input.
X-Git-Tag: emacs-pretest-22.0.90~9342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=731475e79a78cb7f0eb8a25c22a17513fea02738;p=emacs.git

(BYTE_CODE_QUIT): Check Vthrow_on_input.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index e8d006e67d1..6b05a3270d2 100644
--- 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 ();				\
       }							\