* lisp/emacs-lisp/package.el: Improve transaction y-or-n prompt
(package-menu--prompt-transaction-p): Prompt for "Delete" first, "Upgrade" last, and use capitalized instead of all-caps.
This commit is contained in:
parent
5aa0dfe4b7
commit
e99d8cb25d
1 changed files with 8 additions and 8 deletions
|
@ -2780,15 +2780,15 @@ nil, but not both."
|
|||
(del (cl-set-difference delete upg :key #'package-desc-name)))
|
||||
(y-or-n-p
|
||||
(concat
|
||||
(when upg "UPGRADE ")
|
||||
(package-menu--list-to-prompt upg)
|
||||
(when (and upg ins)
|
||||
(if del "; " "; and "))
|
||||
(when ins "INSTALL ")
|
||||
(package-menu--list-to-prompt ins)
|
||||
(when (and del (or ins upg)) "; and ")
|
||||
(when del "DELETE ")
|
||||
(when del "Delete ")
|
||||
(package-menu--list-to-prompt del)
|
||||
(when (and del ins)
|
||||
(if upg "; " "; and "))
|
||||
(when ins "Install ")
|
||||
(package-menu--list-to-prompt ins)
|
||||
(when (and upg (or ins del)) "; and ")
|
||||
(when upg "Upgrade ")
|
||||
(package-menu--list-to-prompt upg)
|
||||
"? "))))
|
||||
|
||||
(defun package-menu--perform-transaction (install-list delete-list &optional async)
|
||||
|
|
Loading…
Add table
Reference in a new issue