diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-23 08:41:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-23 08:41:03 +0000 |
| commit | d4ce6b1875e09bb9535467a97ff7263e18b3ec26 (patch) | |
| tree | 1130ea7d2d2442ffe001b7d862a5ae47c8c07afd /lisp/emacs-lisp | |
| parent | 0b1716286b7065b3529c8ba60fca0ddb544c3655 (diff) | |
| download | emacs-d4ce6b1875e09bb9535467a97ff7263e18b3ec26.tar.gz emacs-d4ce6b1875e09bb9535467a97ff7263e18b3ec26.tar.bz2 emacs-d4ce6b1875e09bb9535467a97ff7263e18b3ec26.zip | |
(edebug-functionp): Recognize compiled functions.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 9061751082d..0dcb21780e8 100644 --- 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))))) |