diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 2 insertions, 3 deletions
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) |