[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3c0ea58: * lisp/emacs-lisp/bytecomp.el: Use `inhibi
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master 3c0ea58: * lisp/emacs-lisp/bytecomp.el: Use `inhibit-message' |
Date: |
Wed, 29 Apr 2015 08:48:53 +0000 |
branch: master
commit 3c0ea587daf8b17960b90603a70e3ac4057d883d
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
* lisp/emacs-lisp/bytecomp.el: Use `inhibit-message'
(byte-compile--message): Use `inhibit-message' instead of hiding
the previous message with (message nil).
---
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 51bbf8a..d732c73 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3c0ea58: * lisp/emacs-lisp/bytecomp.el: Use `inhibit-message',
Artur Malabarba <=