Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
380:2ee195986980 | 381:0673e72f6c8c |
---|---|
64 }; | 64 }; |
65 | 65 |
66 struct catchtag *catchlist; | 66 struct catchtag *catchlist; |
67 | 67 |
68 Lisp_Object Qautoload, Qmacro, Qexit, Qinteractive, Qcommandp, Qdefun; | 68 Lisp_Object Qautoload, Qmacro, Qexit, Qinteractive, Qcommandp, Qdefun; |
69 Lisp_Object Vquit_flag, Vinhibit_quit; | 69 Lisp_Object Qinhibit_quit, Vinhibit_quit, Vquit_flag; |
70 Lisp_Object Qmocklisp_arguments, Vmocklisp_arguments, Qmocklisp; | 70 Lisp_Object Qmocklisp_arguments, Vmocklisp_arguments, Qmocklisp; |
71 Lisp_Object Qand_rest, Qand_optional; | 71 Lisp_Object Qand_rest, Qand_optional; |
72 Lisp_Object Qdebug_on_error; | 72 Lisp_Object Qdebug_on_error; |
73 | 73 |
74 Lisp_Object Vrun_hooks; | 74 Lisp_Object Vrun_hooks; |
2245 Note that `quit-flag' will still be set by typing C-g,\n\ | 2245 Note that `quit-flag' will still be set by typing C-g,\n\ |
2246 so a quit will be signalled as soon as `inhibit-quit' is nil.\n\ | 2246 so a quit will be signalled as soon as `inhibit-quit' is nil.\n\ |
2247 To prevent this happening, set `quit-flag' to nil\n\ | 2247 To prevent this happening, set `quit-flag' to nil\n\ |
2248 before making `inhibit-quit' nil."); | 2248 before making `inhibit-quit' nil."); |
2249 Vinhibit_quit = Qnil; | 2249 Vinhibit_quit = Qnil; |
2250 | |
2251 Qinhibit_quit = intern ("inhibit-quit"); | |
2252 staticpro (&Qinhibit_quit); | |
2250 | 2253 |
2251 Qautoload = intern ("autoload"); | 2254 Qautoload = intern ("autoload"); |
2252 staticpro (&Qautoload); | 2255 staticpro (&Qautoload); |
2253 | 2256 |
2254 Qdebug_on_error = intern ("debug-on-error"); | 2257 Qdebug_on_error = intern ("debug-on-error"); |