From d4ce6b1875e09bb9535467a97ff7263e18b3ec26 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Nov 1993 08:41:03 +0000 Subject: [PATCH] (edebug-functionp): Recognize compiled functions. --- lisp/emacs-lisp/edebug.el | 1 + 1 file changed, 1 insertion(+) 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))))) -- 2.39.5