diff options
Diffstat (limited to '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'." | |||
| 986 | "Like `message', except sometimes don't print to minibuffer. | 986 | "Like `message', except sometimes don't print to minibuffer. |
| 987 | If the variable `byte-compile--interactive' is nil, the message | 987 | If the variable `byte-compile--interactive' is nil, the message |
| 988 | is not displayed on the minibuffer." | 988 | is not displayed on the minibuffer." |
| 989 | (apply #'message format args) | 989 | (let ((inhibit-message (not byte-compile--interactive))) |
| 990 | (unless byte-compile--interactive | 990 | (apply #'message format args))) |
| 991 | (message nil))) | ||
| 992 | 991 | ||
| 993 | ;; Log something that isn't a warning. | 992 | ;; Log something that isn't a warning. |
| 994 | (defun byte-compile-log-1 (string) | 993 | (defun byte-compile-log-1 (string) |