Mercurial > emacs
changeset 47107:747c4a00be3e
(byte-compile-log-file): Use \f.
(byte-compile-cl-warn): Add cl-macroexpand-all, cl-compiling-file
to don't-warn list.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Aug 2002 14:49:48 +0000 |
| parents | 7654c5eef71e |
| children | 256bfac4f5b5 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Aug 29 14:47:52 2002 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Aug 29 14:49:48 2002 +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.108 $") +(defconst byte-compile-version "$Revision: 2.109 $") ;; This file is part of GNU Emacs. @@ -943,7 +943,7 @@ (goto-char (point-max)) (insert "\n") (let ((pt (point))) - (insert "^L\nCompiling " + (insert "\f\nCompiling " (if (stringp byte-compile-current-file) (concat "file " byte-compile-current-file) (concat "buffer " (buffer-name byte-compile-current-file))) @@ -1230,10 +1230,10 @@ '(cl-block-wrapper cl-block-throw multiple-value-call nth-value copy-seq first second rest endp cl-member - ;; This is sometimes defined in CL - ;; but that redefines a standard function, - ;; so don't warn about it. - macroexpand)))) + ;; 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) @@ -1329,6 +1329,13 @@ ) body))) +;;; ;; Log the file name. +;;; (let ((tem (byte-compile-log-file))) +;;; ;; Record position of that text, +;;; ;; unless we're compiling multiple files and this isn't the first. +;;; (unless warning-series +;;; (setq warning-series tem))) + (defmacro displaying-byte-compile-warnings (&rest body) `(let (warning-series) ;; Log the file name. Record position of that text.