]> code.delx.au - gnu-emacs/commitdiff
* lisp/emacs-lisp/package.el (package--message): inhibit-message
authorArtur Malabarba <bruce.connor.am@gmail.com>
Thu, 30 Apr 2015 00:19:01 +0000 (01:19 +0100)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Thu, 30 Apr 2015 08:35:20 +0000 (09:35 +0100)
lisp/emacs-lisp/package.el

index a65564151bcd6150d792ba8a6fe7797c63f9ec46..c3bec360faf69f8c161124a443ba78cf81451cc1 100644 (file)
@@ -1380,10 +1380,9 @@ it to the file."
 (defun package--message (format &rest args)
   "Like `message', except sometimes don't print to minibuffer.
 If the variable `package--silence' is non-nil, the message is not
-displayed on the minibuffer."
-  (apply #'message format args)
-  (when package--silence
-    (message nil)))
+displayed on the echo area."
+  (let ((inhibit-message package--silence))
+    (apply #'message format args)))
 
 ;;;###autoload
 (defun package-import-keyring (&optional file)