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

(byte-compile--message): Use `inhibit-message' instead of hiding
the previous message with (message nil).
This commit is contained in:
Artur Malabarba 2015-04-29 09:47:07 +01:00
parent f66b16c365
commit 3c0ea587da

View file

@ -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)