Mercurial > emacs

diff src/bytecode.c @ 62981:79e0dd73c671

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(BYTE_CODE_QUIT): Check Vthrow_on_input.
author Kim F. Storm <storm@cua.dk>
date Fri, 03 Jun 2005 23:02:30 +0000
parents 569cd6a5babd
children a8fa7c632ee4 01137c1fdbe9
line wrap: on
line diff
--- a/src/bytecode.c	Fri Jun 03 23:02:21 2005 +0000
+++ b/src/bytecode.c	Fri Jun 03 23:02:30 2005 +0000
@@ -384,8 +384,11 @@
   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 ();				\
       }							\