Mercurial > emacs

changeset 381:0673e72f6c8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sun, 11 Aug 1991 04:35:38 +0000
parents 2ee195986980
children b6465a2ae3e5
files src/eval.c src/lisp.h
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
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);
 
--- a/src/lisp.h	Sun Aug 11 01:03:47 1991 +0000
+++ b/src/lisp.h	Sun Aug 11 04:35:38 1991 +0000
@@ -915,7 +915,7 @@
 
 /* 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;