diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index 1076985d097..4e8a4e9d9da 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1884,7 +1884,7 @@ signal_or_quit (Lisp_Object error_symbol, Lisp_Object data, bool keyboard_quit) | |||
| 1884 | && NILP (Vinhibit_debugger)) | 1884 | && NILP (Vinhibit_debugger)) |
| 1885 | { | 1885 | { |
| 1886 | ptrdiff_t count = SPECPDL_INDEX (); | 1886 | ptrdiff_t count = SPECPDL_INDEX (); |
| 1887 | specbind (Vdebugger, Qdebug); | 1887 | specbind (Qdebugger, Qdebug); |
| 1888 | call_debugger (list2 (Qerror, Fcons (error_symbol, data))); | 1888 | call_debugger (list2 (Qerror, Fcons (error_symbol, data))); |
| 1889 | unbind_to (count, Qnil); | 1889 | unbind_to (count, Qnil); |
| 1890 | } | 1890 | } |
| @@ -4460,6 +4460,7 @@ might not be safe to continue. */); | |||
| 4460 | doc: /* Non-nil means display call stack frames as lists. */); | 4460 | doc: /* Non-nil means display call stack frames as lists. */); |
| 4461 | debugger_stack_frame_as_list = 0; | 4461 | debugger_stack_frame_as_list = 0; |
| 4462 | 4462 | ||
| 4463 | DEFSYM (Qdebugger, "debugger"); | ||
| 4463 | DEFVAR_LISP ("debugger", Vdebugger, | 4464 | DEFVAR_LISP ("debugger", Vdebugger, |
| 4464 | doc: /* Function to call to invoke debugger. | 4465 | doc: /* Function to call to invoke debugger. |
| 4465 | If due to frame exit, args are `exit' and the value being returned; | 4466 | If due to frame exit, args are `exit' and the value being returned; |