From cadb17eb3b7235a33032e384df654497938681d3 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 29 Jan 1996 21:09:23 +0000 Subject: (byte-compile-log-1): Delete format call inside message. --- lisp/emacs-lisp/bytecomp.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 -- cgit v1.2.1