Commit f2144eef authored by Philippe Vaucher's avatar Philippe Vaucher Committed by Eli Zaretskii
Browse files

Restore 'command-debug-status' functionality

* src/callint.c (Fcall_interactively): Bind command-debug-status
to nil.  This restores functionality inadvertently removed in
Emacs 25.1.  (Bug#24555)

* lisp/subr.el (command-debug-status): Declare obsolete.

* doc/lispref/debugging.texi (Internals of Debugger): Document
that 'command-debug-status' is obsolete.
parent ec6e4b9d
...@@ -654,6 +654,8 @@ invocation. ...@@ -654,6 +654,8 @@ invocation.
The advantage of using this variable rather than an ordinary global The advantage of using this variable rather than an ordinary global
variable is that the data will never carry over to a subsequent command variable is that the data will never carry over to a subsequent command
invocation. invocation.
This variable is obsolete and will be removed in future versions.
@end defvar @end defvar
@defun backtrace-frame frame-number @defun backtrace-frame frame-number
......
...@@ -1377,6 +1377,9 @@ is converted into a string by expressing it in decimal." ...@@ -1377,6 +1377,9 @@ is converted into a string by expressing it in decimal."
(make-obsolete 'process-filter-multibyte-p nil "23.1") (make-obsolete 'process-filter-multibyte-p nil "23.1")
(make-obsolete 'set-process-filter-multibyte nil "23.1") (make-obsolete 'set-process-filter-multibyte nil "23.1")
(make-obsolete-variable 'command-debug-status
"expect it to be removed in a future version." "25.2")
;; Lisp manual only updated in 22.1. ;; Lisp manual only updated in 22.1.
(define-obsolete-variable-alias 'executing-macro 'executing-kbd-macro (define-obsolete-variable-alias 'executing-macro 'executing-kbd-macro
"before 19.34") "before 19.34")
......
...@@ -837,7 +837,10 @@ invoke it. If KEYS is omitted or nil, the return value of ...@@ -837,7 +837,10 @@ invoke it. If KEYS is omitted or nil, the return value of
kset_last_command (current_kboard, save_last_command); kset_last_command (current_kboard, save_last_command);
{ {
Lisp_Object val = Ffuncall (nargs, args); Lisp_Object val;
specbind (Qcommand_debug_status, Qnil);
val = Ffuncall (nargs, args);
val = unbind_to (speccount, val); val = unbind_to (speccount, val);
SAFE_FREE (); SAFE_FREE ();
return val; return val;
...@@ -894,6 +897,7 @@ syms_of_callint (void) ...@@ -894,6 +897,7 @@ syms_of_callint (void)
DEFSYM (Qhandle_shift_selection, "handle-shift-selection"); DEFSYM (Qhandle_shift_selection, "handle-shift-selection");
DEFSYM (Qread_number, "read-number"); DEFSYM (Qread_number, "read-number");
DEFSYM (Qfuncall_interactively, "funcall-interactively"); DEFSYM (Qfuncall_interactively, "funcall-interactively");
DEFSYM (Qcommand_debug_status, "command-debug-status");
DEFSYM (Qenable_recursive_minibuffers, "enable-recursive-minibuffers"); DEFSYM (Qenable_recursive_minibuffers, "enable-recursive-minibuffers");
DEFSYM (Qmouse_leave_buffer_hook, "mouse-leave-buffer-hook"); DEFSYM (Qmouse_leave_buffer_hook, "mouse-leave-buffer-hook");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment