From 8d3fff6bd68198b1a76dce559b0b8a5f87cd5103 Mon Sep 17 00:00:00 2001 From: Paul Pogonyshev Date: Thu, 10 Jan 2019 20:39:54 +0100 Subject: [PATCH] Make `package' not "uninhibit" messages (Bug#34037) * lisp/emacs-lisp/package.el: Don't let-bind inhibit-message to a different value if it was non-nil. --- lisp/emacs-lisp/package.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 949ad711ae3..7b779b5ae5b 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1625,7 +1625,7 @@ downloads in the background." (make-directory package-user-dir t)) (let ((default-keyring (expand-file-name "package-keyring.gpg" data-directory)) - (inhibit-message async)) + (inhibit-message (or inhibit-message async))) (when (and package-check-signature (file-exists-p default-keyring)) (condition-case-unless-debug error (package-import-keyring default-keyring) @@ -3261,7 +3261,7 @@ objects removed." (redisplay 'force) (dolist (elt (package--sort-by-dependence delete-list)) (condition-case-unless-debug err - (let ((inhibit-message package-menu-async)) + (let ((inhibit-message (or inhibit-message package-menu-async))) (package-delete elt nil 'nosave)) (error (message "Error trying to delete `%s': %S" (package-desc-full-name elt) -- 2.39.2