Commit f9e899b6 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

replace it with an equivalent lambda.
parent 8c1cd093
......@@ -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): ")
;; 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)
(if (subrp (symbol-function function))
(error "Function %s is a primitive" function))
(or (consp (symbol-function function))
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