# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1152290084 0
# Node ID c64592812a593e0957a1ca6a74234db843a9b5df
# Parent  1404a22bd1f5d6de7b28ae47085f3394302c4f6f
(byte-compile-form): The `byte-compile'
property may contain an anonymous function rather than a symbol.

diff -r 1404a22bd1f5 -r c64592812a59 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jul 07 16:16:18 2006 +0000
+++ b/lisp/ChangeLog	Fri Jul 07 16:34:44 2006 +0000
@@ -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 -r 1404a22bd1f5 -r c64592812a59 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Jul 07 16:16:18 2006 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Jul 07 16:34:44 2006 +0000
@@ -2791,7 +2791,7 @@
                     ;; `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))))