diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-12-04 04:46:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-12-04 04:46:09 +0000 |
| commit | f9e899b67eb75bbc93dec779594ac13bc1b0733c (patch) | |
| tree | d662a90732939ca7cb1d9eafc6811612cd5f8d36 /lisp/emacs-lisp | |
| parent | 8c1cd093df5cfa60b3941f869bae60e94936e1d7 (diff) | |
| download | emacs-f9e899b67eb75bbc93dec779594ac13bc1b0733c.tar.gz emacs-f9e899b67eb75bbc93dec779594ac13bc1b0733c.tar.bz2 emacs-f9e899b67eb75bbc93dec779594ac13bc1b0733c.zip | |
(debug-on-entry): If definition is a symbol,
replace it with an equivalent lambda.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index f7b8e31b714..d4c79ea2534 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -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)) |