Mercurial > emacs

changeset 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 5b94f4660d9d
children d7793ac6df62
files src/bytecode.c
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
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 ();				\
       }							\