(edebug-functionp): Recognize compiled functions.

1993-11-23 08:41:03 +00:00
parent 0b1716286b
commit d4ce6b1875
1 changed files with 1 additions and 0 deletions
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -327,6 +327,7 @@ Assumes Emacs Lisp syntax is active."
  (while (and (symbolp object) (fboundp object))
    (setq object (symbol-function object)))
  (if (or (subrp object)
+	  (byte-code-function-p object)
 	  (and (listp object)
 	       (eq (car object) 'lambda)
 	       (listp (car (cdr object)))))