diff src/eval.c @ 381:0673e72f6c8c

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sun, 11 Aug 1991 04:35:38 +0000
parents 9c2a1e7bd9f1
children 504d7cdfd311
line wrap: on
line diff
--- a/src/eval.c	Sun Aug 11 01:03:47 1991 +0000
+++ b/src/eval.c	Sun Aug 11 04:35:38 1991 +0000
@@ -66,7 +66,7 @@
 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 @@
 before making `inhibit-quit' nil.");
   Vinhibit_quit = Qnil;
 
+  Qinhibit_quit = intern ("inhibit-quit");
+  staticpro (&Qinhibit_quit);
+
   Qautoload = intern ("autoload");
   staticpro (&Qautoload);