Commit 8d3fff6b authored by Paul Pogonyshev's avatar Paul Pogonyshev Committed by Noam Postavsky

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.
parent 9408e36b
Pipeline #1687 failed with stage
in 67 minutes and 44 seconds
...@@ -1625,7 +1625,7 @@ downloads in the background." ...@@ -1625,7 +1625,7 @@ downloads in the background."
(make-directory package-user-dir t)) (make-directory package-user-dir t))
(let ((default-keyring (expand-file-name "package-keyring.gpg" (let ((default-keyring (expand-file-name "package-keyring.gpg"
data-directory)) data-directory))
(inhibit-message async)) (inhibit-message (or inhibit-message async)))
(when (and package-check-signature (file-exists-p default-keyring)) (when (and package-check-signature (file-exists-p default-keyring))
(condition-case-unless-debug error (condition-case-unless-debug error
(package-import-keyring default-keyring) (package-import-keyring default-keyring)
...@@ -3261,7 +3261,7 @@ objects removed." ...@@ -3261,7 +3261,7 @@ objects removed."
(redisplay 'force) (redisplay 'force)
(dolist (elt (package--sort-by-dependence delete-list)) (dolist (elt (package--sort-by-dependence delete-list))
(condition-case-unless-debug err (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)) (package-delete elt nil 'nosave))
(error (message "Error trying to delete `%s': %S" (error (message "Error trying to delete `%s': %S"
(package-desc-full-name elt) (package-desc-full-name elt)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment