From e0b4be6cc0e9ca0ff1e5fe8c8e3c042cccdc76e7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 7 Jul 2006 16:34:44 +0000 Subject: [PATCH] (byte-compile-form): The `byte-compile' property may contain an anonymous function rather than a symbol. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/bytecomp.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0b24ae8561..f66b3838c2a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2006-07-07 Stefan Monnier + * 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) : diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index ebb2f11764a..02a88c13973 100644 --- 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)))) -- 2.11.4.GIT