Mercurial > emacs
changeset 50727:bd043e09b74c
(byte-compile-cl-warn): Avoid cl warnings
from caaar & al.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 28 Apr 2003 22:03:13 +0000 |
| parents | 2a6a2a5a7957 |
| children | 2acee3c76744 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Mon Apr 28 16:24:30 2003 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Mon Apr 28 22:03:13 2003 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.129 $") +(defconst byte-compile-version "$Revision: 2.130 $") ;; This file is part of GNU Emacs. @@ -1264,7 +1264,15 @@ ;; These would sometimes be warned about ;; but such warnings are never useful, ;; so don't warn about them. - macroexpand cl-macroexpand-all cl-compiling-file)))) + macroexpand cl-macroexpand-all + cl-compiling-file))) + ;; Avoid warnings for things which are safe because they + ;; have suitable compiler macros, but those aren't + ;; expanded at this stage. There should probably be more + ;; here than caaar and friends. + (not (and (eq (get func 'byte-compile) + 'cl-byte-compile-compiler-macro) + (match-string "\\`c[ad]+r\\'" (symbol-name func))))) (byte-compile-warn "Function `%s' from cl package called at runtime" func))) form)