*** empty log message ***

diff --git a/src/eval.c b/src/eval.c
index 4a8ebf7..de6784a 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -66,7 +66,7 @@ struct catchtag
 struct catchtag *catchlist;
 
 Lisp_Object Qautoload, Qmacro, Qexit, Qinteractive, Qcommandp, Qdefun;
-Lisp_Object Vquit_flag, Vinhibit_quit;
+Lisp_Object Qinhibit_quit, Vinhibit_quit, Vquit_flag;
 Lisp_Object Qmocklisp_arguments, Vmocklisp_arguments, Qmocklisp;
 Lisp_Object Qand_rest, Qand_optional;
 Lisp_Object Qdebug_on_error;
@@ -2248,6 +2248,9 @@ To prevent this happening, set `quit-flag' to nil\n\
 before making `inhibit-quit' nil.");
   Vinhibit_quit = Qnil;
 
+  Qinhibit_quit = intern ("inhibit-quit");
+  staticpro (&Qinhibit_quit);
+
   Qautoload = intern ("autoload");
   staticpro (&Qautoload);
 

diff --git a/src/lisp.h b/src/lisp.h
index 1dfc65a..12fbd7f 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -915,7 +915,7 @@ extern Lisp_Object intern (), oblookup ();
 
 /* Defined in eval.c */
 extern Lisp_Object Qautoload, Qexit, Qinteractive, Qcommandp, Qdefun, Qmacro;
-extern Lisp_Object Vinhibit_quit, Vquit_flag;
+extern Lisp_Object Vinhibit_quit, Qinhibit_quit, Vquit_flag;
 extern Lisp_Object Vmocklisp_arguments, Qmocklisp, Qmocklisp_arguments;
 extern Lisp_Object Vautoload_queue;
 extern Lisp_Object Vrun_hooks;