(edebug-functionp): Recognize compiled functions.

This commit is contained in:
Richard M. Stallman 1993-11-23 08:41:03 +00:00
parent 0b1716286b
commit d4ce6b1875

View file

@ -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)))))