Mercurial > emacs
comparison src/eval.c @ 13945:6a653c300631
(syms_of_eval): Doc fix for inhibit-quit.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 04 Jan 1996 23:01:45 +0000 |
parents | 353d32d374db |
children | 0df4b4f2a2a1 |
comparison
equal
deleted
inserted
replaced
13944:cb66e1ad369d | 13945:6a653c300631 |
---|---|
1206 if (EQ (clause, Qlambda)) | 1206 if (EQ (clause, Qlambda)) |
1207 return debugger_value; | 1207 return debugger_value; |
1208 #else | 1208 #else |
1209 if (EQ (clause, Qlambda)) | 1209 if (EQ (clause, Qlambda)) |
1210 { | 1210 { |
1211 /* We can't return values to code which signalled an error, but we | 1211 /* We can't return values to code which signaled an error, but we |
1212 can continue code which has signalled a quit. */ | 1212 can continue code which has signaled a quit. */ |
1213 if (EQ (error_symbol, Qquit)) | 1213 if (EQ (error_symbol, Qquit)) |
1214 return Qnil; | 1214 return Qnil; |
1215 else | 1215 else |
1216 error ("Cannot return from the debugger in an error"); | 1216 error ("Cannot return from the debugger in an error"); |
1217 } | 1217 } |
2811 Vquit_flag = Qnil; | 2811 Vquit_flag = Qnil; |
2812 | 2812 |
2813 DEFVAR_LISP ("inhibit-quit", &Vinhibit_quit, | 2813 DEFVAR_LISP ("inhibit-quit", &Vinhibit_quit, |
2814 "Non-nil inhibits C-g quitting from happening immediately.\n\ | 2814 "Non-nil inhibits C-g quitting from happening immediately.\n\ |
2815 Note that `quit-flag' will still be set by typing C-g,\n\ | 2815 Note that `quit-flag' will still be set by typing C-g,\n\ |
2816 so a quit will be signalled as soon as `inhibit-quit' is nil.\n\ | 2816 so a quit will be signaled as soon as `inhibit-quit' is nil.\n\ |
2817 To prevent this happening, set `quit-flag' to nil\n\ | 2817 To prevent this happening, set `quit-flag' to nil\n\ |
2818 before making `inhibit-quit' nil."); | 2818 before making `inhibit-quit' nil."); |
2819 Vinhibit_quit = Qnil; | 2819 Vinhibit_quit = Qnil; |
2820 | 2820 |
2821 Qinhibit_quit = intern ("inhibit-quit"); | 2821 Qinhibit_quit = intern ("inhibit-quit"); |