diff options
| author | Alan Mackenzie | 2022-01-31 17:20:45 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2022-01-31 17:20:45 +0000 |
| commit | 29bdedf12ffb52d5d1458730c3d3532562336f8d (patch) | |
| tree | 319448055e6dc627c67363c5b19d83ea78b9c753 /src | |
| parent | 6f282b31ad7548ab744565144e0d30dd56774210 (diff) | |
| download | emacs-29bdedf12ffb52d5d1458730c3d3532562336f8d.tar.gz emacs-29bdedf12ffb52d5d1458730c3d3532562336f8d.zip | |
Bind Qdebugger to Qdebug in signal_or_quit.
* src/eval.c (signal_or_quit): Bind the correct variable, Qdebugger (not
Vdebugger) to Qdebug in the section for errors in batch jobs.
(syms_of_eval): New DEFSYM for Qdebugger.
Diffstat (limited to 'src')
| -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 2937e27f239..d002e81da1d 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1862,7 +1862,7 @@ signal_or_quit (Lisp_Object error_symbol, Lisp_Object data, bool keyboard_quit) | |||
| 1862 | && NILP (Vinhibit_debugger)) | 1862 | && NILP (Vinhibit_debugger)) |
| 1863 | { | 1863 | { |
| 1864 | ptrdiff_t count = SPECPDL_INDEX (); | 1864 | ptrdiff_t count = SPECPDL_INDEX (); |
| 1865 | specbind (Vdebugger, Qdebug); | 1865 | specbind (Qdebugger, Qdebug); |
| 1866 | call_debugger (list2 (Qerror, Fcons (error_symbol, data))); | 1866 | call_debugger (list2 (Qerror, Fcons (error_symbol, data))); |
| 1867 | unbind_to (count, Qnil); | 1867 | unbind_to (count, Qnil); |
| 1868 | } | 1868 | } |
| @@ -4413,6 +4413,7 @@ might not be safe to continue. */); | |||
| 4413 | doc: /* Non-nil means display call stack frames as lists. */); | 4413 | doc: /* Non-nil means display call stack frames as lists. */); |
| 4414 | debugger_stack_frame_as_list = 0; | 4414 | debugger_stack_frame_as_list = 0; |
| 4415 | 4415 | ||
| 4416 | DEFSYM (Qdebugger, "debugger"); | ||
| 4416 | DEFVAR_LISP ("debugger", Vdebugger, | 4417 | DEFVAR_LISP ("debugger", Vdebugger, |
| 4417 | doc: /* Function to call to invoke debugger. | 4418 | doc: /* Function to call to invoke debugger. |
| 4418 | If due to frame exit, args are `exit' and the value being returned; | 4419 | If due to frame exit, args are `exit' and the value being returned; |