diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-02-01 06:57:16 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-02-01 06:57:16 +0100 |
| commit | 30ebb54410d18a4f782fe39d21c1941f9852ec8f (patch) | |
| tree | fbcde4e1808baf184e235344830ef7e8688afb66 /src/eval.c | |
| parent | 558c4dafa309445cd8ffc568303e2189f4effc03 (diff) | |
| parent | 31ef751f94fd028d6f1c6bcdf379a8b99769a894 (diff) | |
| download | emacs-30ebb54410d18a4f782fe39d21c1941f9852ec8f.tar.gz emacs-30ebb54410d18a4f782fe39d21c1941f9852ec8f.tar.bz2 emacs-30ebb54410d18a4f782fe39d21c1941f9852ec8f.zip | |
Merge from origin/emacs-28
31ef751f94 Clarify documentation of a "face's font"
29bdedf12f Bind Qdebugger to Qdebug in signal_or_quit.
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) && 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); } @@ -4460,6 +4460,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; |