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

property may contain an anonymous function rather than a symbol.
2006-07-07 16:34:44 +00:00 · 2006-07-07 16:34:44 +00:00 · e0b4be6cc0
commit e0b4be6cc0
parent 91fe949656
2 changed files with 4 additions and 1 deletions
--- 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))))