(byte-compile-form): The `byte-compile'

property may contain an anonymous function rather than a symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0b24ae8561a8ad8d9286e0f35fa8c77af092129..f66b3838c2a65f708619820d7adb2fdcfb2008ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-07-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/bytecomp.el (byte-compile-form): The `byte-compile'
+       property may contain an anonymous function rather than a symbol.
+
        * pcvs-defs.el (cvs-temp-buffer-name): Fix non-hiddenness.
 
        * progmodes/compile.el (compilation-error-regexp-alist-alist) <gnu>:

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index ebb2f11764af17e2294a1f518e9087fa9d48811c..02a88c13973837dd4efe5fa7f855bd3245b76e43 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2791,7 +2791,7 @@ That command is designed for interactive use only" fn))
                     ;; `cl-byte-compile-compiler-macro' but if CL isn't
                     ;; loaded, this function doesn't exist.
                     (or (not (memq handler '(cl-byte-compile-compiler-macro)))
-                        (fboundp handler))
+                        (functionp handler))
                    (not (and (byte-compile-version-cond
                                byte-compile-compatibility)
                               (get (get fn 'byte-opcode) 'emacs19-opcode))))