masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-13 15:39:02 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Restore 'command-debug-status' functionality

Browse source 
* 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.
This commit is contained in:
Philippe Vaucher 2016-10-04 17:34:51 +03:00 • committed by Eli Zaretskii
parent ec6e4b9d1e
commit f2144eef19
3 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
doc/lispref/debugging.texi
View file

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

3
lisp/subr.el
View file

@ -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")

6
src/callint.c
View file

@ -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)
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");