(byte-compile-log-1): Delete format call inside message.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index d602eae81c6daa6f6771d3c621a0fec4dcf353ad..fde15832db893047f5114f30c41323e4e5925b62 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -749,14 +749,14 @@ otherwise pop it")
                 (and byte-compile-last-warned-form
                      (not (eq byte-compile-current-form
                               byte-compile-last-warned-form))))
-            (message (format "While compiling %s%s:"
-                       (or byte-compile-current-form "toplevel forms")
-                       (if byte-compile-current-file
-                           (if (stringp byte-compile-current-file)
-                               (concat " in file " byte-compile-current-file)
-                             (concat " in buffer "
-                                     (buffer-name byte-compile-current-file)))
-                           ""))))
+            (message "While compiling %s%s:"
+                     (or byte-compile-current-form "toplevel forms")
+                     (if byte-compile-current-file
+                         (if (stringp byte-compile-current-file)
+                             (concat " in file " byte-compile-current-file)
+                           (concat " in buffer "
+                                   (buffer-name byte-compile-current-file)))
+                       "")))
         (message "  %s" string))
        (t
         (save-excursion