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.