diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-07-07 16:34:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-07-07 16:34:44 +0000 |
| commit | f6ca470d461c1b2d576f197d25ece739eac56077 (patch) | |
| tree | d3ddf5559d4341c588014c9817ee533889a557f3 /lisp/emacs-lisp/bytecomp.el | |
| parent | 43d722265959a425a83fcebdf6e0ae7b77895227 (diff) | |
| download | emacs-f6ca470d461c1b2d576f197d25ece739eac56077.tar.gz | |
(byte-compile-form): The `byte-compile'
property may contain an anonymous function rather than a symbol.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |