aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorAlan Mackenzie2022-01-31 17:20:45 +0000
committerAlan Mackenzie2022-01-31 17:20:45 +0000
commit29bdedf12ffb52d5d1458730c3d3532562336f8d (patch)
tree319448055e6dc627c67363c5b19d83ea78b9c753 /src
parent6f282b31ad7548ab744565144e0d30dd56774210 (diff)
downloademacs-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.c3
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.
4418If due to frame exit, args are `exit' and the value being returned; 4419If due to frame exit, args are `exit' and the value being returned;