From 731475e79a78cb7f0eb8a25c22a17513fea02738 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Fri, 3 Jun 2005 23:02:30 +0000
Subject: [PATCH] (BYTE_CODE_QUIT): Check Vthrow_on_input.

---
 src/bytecode.c | 3 +++
 1 file changed, 3 insertions(+)

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 ();				\
       }							\
-- 
2.39.5