# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754044063 0
# Node ID 127a513c13b244930fd491ecec5c243a54de9822
# Parent  1aba6a79cb3d725d6c93c4a4976e21d7c17e6719
(edebug-functionp): Recognize compiled functions.

diff -r 1aba6a79cb3d -r 127a513c13b2 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Tue Nov 23 08:35:46 1993 +0000
+++ b/lisp/emacs-lisp/edebug.el	Tue Nov 23 08:41:03 1993 +0000
@@ -327,6 +327,7 @@
   (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)))))