From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 29 Jan 1996 21:09:23 +0000 (+0000)
Subject: (byte-compile-log-1): Delete format call inside message.
X-Git-Tag: emacs-19.34~1448
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e0846530ac6fee3b1ba8e304c1451a90d41e1a0;p=emacs.git

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

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index d602eae81c6..fde15832db8 100644
--- 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