Commit d4ce6b18 authored by Richard M. Stallman's avatar Richard M. Stallman

(edebug-functionp): Recognize compiled functions.

parent 0b171628
......@@ -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)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment