comparison lisp/emacs-lisp/bytecomp.el @ 47107:747c4a00be3e

(byte-compile-log-file): Use \f. (byte-compile-cl-warn): Add cl-macroexpand-all, cl-compiling-file to don't-warn list.

47106:7654c5eef71e

;; Maintainer: FSF
;; Keywords: lisp

;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.108 $")

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

       (save-excursion
	 (byte-goto-log-buffer)
	 (goto-char (point-max))
	 (insert "\n")
	 (let ((pt (point)))
	   (insert "^L\nCompiling "
		   (if (stringp byte-compile-current-file)
		       (concat "file " byte-compile-current-file)
		     (concat "buffer " (buffer-name byte-compile-current-file)))
		   " at " (current-time-string) "\n")
	   (setq byte-compile-last-logged-file byte-compile-current-file)

	     ;; avoid hardwiring the list.
	     (not (memq func
			'(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))))
	(byte-compile-warn "Function `%s' from cl package called at runtime"
			   func)))
  form)

(defun byte-compile-print-syms (str1 strn syms)

		(byte-compile-warnings (if (eq byte-compile-warnings t)
					   byte-compile-warning-types
					 byte-compile-warnings))
		)
	      body)))

(defmacro displaying-byte-compile-warnings (&rest body)
  `(let (warning-series)
     ;; Log the file name.  Record position of that text.
     (setq warning-series (byte-compile-log-file))

47107:747c4a00be3e

;; Maintainer: FSF
;; Keywords: lisp

;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.109 $")

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

       (save-excursion
	 (byte-goto-log-buffer)
	 (goto-char (point-max))
	 (insert "\n")
	 (let ((pt (point)))
	   (insert "\f\nCompiling "
		   (if (stringp byte-compile-current-file)
		       (concat "file " byte-compile-current-file)
		     (concat "buffer " (buffer-name byte-compile-current-file)))
		   " at " (current-time-string) "\n")
	   (setq byte-compile-last-logged-file byte-compile-current-file)

	     ;; avoid hardwiring the list.
	     (not (memq func
			'(cl-block-wrapper cl-block-throw
			  multiple-value-call nth-value
			  copy-seq first second rest endp cl-member
			  ;; 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)

(defun byte-compile-print-syms (str1 strn syms)

		(byte-compile-warnings (if (eq byte-compile-warnings t)
					   byte-compile-warning-types
					 byte-compile-warnings))
		)
	      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.
     (setq warning-series (byte-compile-log-file))