mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(debug-on-entry): If definition is a symbol,

Browse Source 
replace it with an equivalent lambda.
This commit is contained in:
Karl Heuer 1997-12-04 04:46:09 +00:00
parent 8c1cd093df
commit f9e899b67e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/debug.el
View File

@ -457,6 +457,11 @@ Use \\[cancel-debug-on-entry] to cancel the effect of this command.
Redefining FUNCTION also cancels it."
(interactive "aDebug on entry (to function): ")
(debugger-reenable)
;; Handle a function that has been aliased to some other function.
(if (symbolp (symbol-function function))
(fset function `(lambda (&rest debug-on-entry-args)
(apply ',(symbol-function function)
debug-on-entry-args))))
(if (subrp (symbol-function function))
(error "Function %s is a primitive" function))
(or (consp (symbol-function function))