943 |
(goto-char (point-max)) |
(goto-char (point-max)) |
944 |
(insert "\n") |
(insert "\n") |
945 |
(let ((pt (point))) |
(let ((pt (point))) |
946 |
(insert "^L\nCompiling " |
(insert "\f\nCompiling " |
947 |
(if (stringp byte-compile-current-file) |
(if (stringp byte-compile-current-file) |
948 |
(concat "file " byte-compile-current-file) |
(concat "file " byte-compile-current-file) |
949 |
(concat "buffer " (buffer-name byte-compile-current-file))) |
(concat "buffer " (buffer-name byte-compile-current-file))) |
1230 |
'(cl-block-wrapper cl-block-throw |
'(cl-block-wrapper cl-block-throw |
1231 |
multiple-value-call nth-value |
multiple-value-call nth-value |
1232 |
copy-seq first second rest endp cl-member |
copy-seq first second rest endp cl-member |
1233 |
;; This is sometimes defined in CL |
;; These would sometimes be warned about |
1234 |
;; but that redefines a standard function, |
;; but such warnings are never useful, |
1235 |
;; so don't warn about it. |
;; so don't warn about them. |
1236 |
macroexpand)))) |
macroexpand cl-macroexpand-all cl-compiling-file)))) |
1237 |
(byte-compile-warn "Function `%s' from cl package called at runtime" |
(byte-compile-warn "Function `%s' from cl package called at runtime" |
1238 |
func))) |
func))) |
1239 |
form) |
form) |
1329 |
) |
) |
1330 |
body))) |
body))) |
1331 |
|
|
1332 |
|
;;; ;; Log the file name. |
1333 |
|
;;; (let ((tem (byte-compile-log-file))) |
1334 |
|
;;; ;; Record position of that text, |
1335 |
|
;;; ;; unless we're compiling multiple files and this isn't the first. |
1336 |
|
;;; (unless warning-series |
1337 |
|
;;; (setq warning-series tem))) |
1338 |
|
|
1339 |
(defmacro displaying-byte-compile-warnings (&rest body) |
(defmacro displaying-byte-compile-warnings (&rest body) |
1340 |
`(let (warning-series) |
`(let (warning-series) |
1341 |
;; Log the file name. Record position of that text. |
;; Log the file name. Record position of that text. |