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");