# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881210769 0
# Node ID 7cce7f974c780233147ab1f220ca24a8c13e1db0
# Parent  698119867c214e3222ded71bb1bad6f95097930a
(debug-on-entry): If definition is a symbol,
replace it with an equivalent lambda.

diff -r 698119867c21 -r 7cce7f974c78 lisp/emacs-lisp/debug.el
--- a/lisp/emacs-lisp/debug.el	Thu Dec 04 04:42:31 1997 +0000
+++ b/lisp/emacs-lisp/debug.el	Thu Dec 04 04:46:09 1997 +0000
@@ -457,6 +457,11 @@
 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))