diff options
| -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))))) |