From: Alan Mackenzie <acm@muc.de>
Date: Mon, 31 Jan 2022 17:20:45 +0000 (+0000)
Subject: Bind Qdebugger to Qdebug in signal_or_quit.
X-Git-Tag: emacs-28.0.92~69
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29bdedf12ffb52d5d1458730c3d3532562336f8d;p=emacs.git

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.
---

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