diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-29 21:09:23 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-29 21:09:23 +0000 |
| commit | 7e0846530ac6fee3b1ba8e304c1451a90d41e1a0 (patch) | |
| tree | 0ec460c32c2549f0bdf2af2a6c12525287742f19 | |
| parent | 6b0442dc8227ae6cb7e3b94bbb71c5f0ca36772e (diff) | |
| download | emacs-7e0846530ac6fee3b1ba8e304c1451a90d41e1a0.tar.gz | |
(byte-compile-log-1): Delete format call inside message.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 16 |
1 files 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 |