mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(byte-compile-log-file): Use \f.

Browse Source 
(byte-compile-cl-warn): Add cl-macroexpand-all, cl-compiling-file
to don't-warn list.
This commit is contained in:
Richard M. Stallman 2002-08-29 14:49:48 +00:00
parent f76041d5f6
commit 8f876842ca
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/emacs-lisp/bytecomp.el
View File

@ -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 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
(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 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
'(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 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
)
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.