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 | cadb17eb3b7235a33032e384df654497938681d3 (patch) | |
| tree | 7a76d9fc57392bd22bca591b5abc0f794e7252cd | |
| parent | e3670f5a40c34678354f492266921ba0d39cfbea (diff) | |
| download | emacs-cadb17eb3b7235a33032e384df654497938681d3.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 |