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