[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 29bdedf12f: Bind Qdebugger to Qdebug in signal_or_quit.
From: |
Alan Mackenzie |
Subject: |
emacs-28 29bdedf12f: Bind Qdebugger to Qdebug in signal_or_quit. |
Date: |
Mon, 31 Jan 2022 12:21:52 -0500 (EST) |
branch: emacs-28
commit 29bdedf12ffb52d5d1458730c3d3532562336f8d
Author: Alan Mackenzie <acm@muc.de>
Commit: Alan Mackenzie <acm@muc.de>
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.
---
src/eval.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/eval.c b/src/eval.c
index 2937e27f23..d002e81da1 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)
&& NILP (Vinhibit_debugger))
{
ptrdiff_t count = SPECPDL_INDEX ();
- specbind (Vdebugger, Qdebug);
+ specbind (Qdebugger, Qdebug);
call_debugger (list2 (Qerror, Fcons (error_symbol, data)));
unbind_to (count, Qnil);
}
@@ -4413,6 +4413,7 @@ might not be safe to continue. */);
doc: /* Non-nil means display call stack frames as lists. */);
debugger_stack_frame_as_list = 0;
+ DEFSYM (Qdebugger, "debugger");
DEFVAR_LISP ("debugger", Vdebugger,
doc: /* Function to call to invoke debugger.
If due to frame exit, args are `exit' and the value being returned;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 29bdedf12f: Bind Qdebugger to Qdebug in signal_or_quit.,
Alan Mackenzie <=