* lisp/emacs-lisp/bytecomp.el: Use `inhibit-message'

(byte-compile--message): Use `inhibit-message' instead of hiding
the previous message with (message nil).

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 51bbf8a2944e4bbfbb3f95ee78829531f667fcf0..d732c730bff850a94f94334e29aef07cdc1be072 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -986,9 +986,8 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
   "Like `message', except sometimes don't print to minibuffer.
 If the variable `byte-compile--interactive' is nil, the message
 is not displayed on the minibuffer."
-  (apply #'message format args)
-  (unless byte-compile--interactive
-    (message nil)))
+  (let ((inhibit-message (not byte-compile--interactive)))
+    (apply #'message format args)))
 
 ;; Log something that isn't a warning.
 (defun byte-compile-log-1 (string)