(edebug-functionp): Recognize compiled functions.
This commit is contained in:
parent
0b1716286b
commit
d4ce6b1875
1 changed files with 1 additions and 0 deletions
|
@ -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)))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue