From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Nov 1993 08:41:03 +0000 (+0000)
Subject: (edebug-functionp): Recognize compiled functions.
X-Git-Tag: emacs-19.34~10726
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4ce6b1875e09bb9535467a97ff7263e18b3ec26;p=emacs.git

(edebug-functionp): Recognize compiled functions.
---

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