diff options
| author | Richard M. Stallman | 1993-11-23 08:41:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-23 08:41:03 +0000 |
| commit | d4ce6b1875e09bb9535467a97ff7263e18b3ec26 (patch) | |
| tree | 1130ea7d2d2442ffe001b7d862a5ae47c8c07afd | |
| parent | 0b1716286b7065b3529c8ba60fca0ddb544c3655 (diff) | |
| download | emacs-d4ce6b1875e09bb9535467a97ff7263e18b3ec26.tar.gz emacs-d4ce6b1875e09bb9535467a97ff7263e18b3ec26.zip | |
(edebug-functionp): Recognize compiled functions.
| -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." | |||
| 327 | (while (and (symbolp object) (fboundp object)) | 327 | (while (and (symbolp object) (fboundp object)) |
| 328 | (setq object (symbol-function object))) | 328 | (setq object (symbol-function object))) |
| 329 | (if (or (subrp object) | 329 | (if (or (subrp object) |
| 330 | (byte-code-function-p object) | ||
| 330 | (and (listp object) | 331 | (and (listp object) |
| 331 | (eq (car object) 'lambda) | 332 | (eq (car object) 'lambda) |
| 332 | (listp (car (cdr object))))) | 333 | (listp (car (cdr object))))) |