mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2026-09-10 07:46:51 -04:00
Prevent 'package-menu--mark-upgrades-1' from blocking
* lisp/emacs-lisp/package.el (package-menu--mark-upgrades-1): If 'package-retention-policy' applies, still move forward a line so that the loop can consider the next package. (Bug#81373)
This commit is contained in:
parent
a9fc13614e
commit
ed4a3e251b
|
|
@ -3978,9 +3978,10 @@ Implementation of `package-menu-mark-upgrades'."
|
|||
((equal pkg-desc upgrade)
|
||||
(package-menu-mark-install))
|
||||
(t
|
||||
(unless (package-matches-selector-p
|
||||
package-retention-policy
|
||||
pkg-desc)
|
||||
(if (package-matches-selector-p
|
||||
package-retention-policy
|
||||
pkg-desc)
|
||||
(forward-line)
|
||||
(package-menu-mark-delete)))))))
|
||||
(message "Packages marked for upgrading: %d"
|
||||
(length upgrades)))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue