From: Artur Malabarba Date: Wed, 29 Apr 2015 08:47:07 +0000 (+0100) Subject: * lisp/emacs-lisp/bytecomp.el: Use `inhibit-message' X-Git-Tag: emacs-25.0.90~2256^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c0ea587daf8b17960b90603a70e3ac4057d883d;p=emacs.git * 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 51bbf8a2944..d732c730bff 100644 --- 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)