[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Dave Love]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.130 
emacs/lisp/emacs-lisp/bytecomp.el:2.131
*** emacs/lisp/emacs-lisp/bytecomp.el:2.130     Wed Apr 23 21:52:37 2003
--- emacs/lisp/emacs-lisp/bytecomp.el   Mon Apr 28 18:03:13 2003
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.130 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.131 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 1264,1270 ****
                          ;; 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))))
        (byte-compile-warn "Function `%s' from cl package called at runtime"
                           func)))
    form)
--- 1264,1278 ----
                          ;; 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)))
!            ;; 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)