emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]