procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

New command 'package-update-all'

Browse source 
* lisp/emacs-lisp/package.el (package-update-all): New function
(bug#19146).
(package--updateable-packages): Factored out...
(package-update): ... from here.
This commit is contained in:
Lars Ingebrigtsen 2022-05-12 03:59:16 +02:00
parent 2dc996a95d
commit 42001f843b
3 changed files with 45 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

58
lisp/emacs-lisp/package.el
View file

@ -2140,26 +2140,44 @@ to install it but still mark it as selected."
(defun package-update (name)
"Update package NAME if a newer version exists."
(interactive
(progn
;; Initialize the package system to get the list of package
;; symbols for completion.
(package--archives-initialize)
(list (completing-read
"Update package: "
(mapcar
#'car
(seq-filter
(lambda (elt)
(let ((available
(assq (car elt) package-archive-contents)))
(and available
(version-list-<
(package-desc-priority-version (cadr elt))
(package-desc-priority-version (cadr available))))))
package-alist))
nil t))))
(package-delete (cadr (assq (intern name) package-alist)) 'force)
(package-install (intern name) 'dont-select))
(list (completing-read
"Update package: " (package--updateable-packages) nil t)))
(let ((package (if (symbolp name)
name
(intern name))))
(package-delete (cadr (assq package package-alist)) 'force)
(package-install package 'dont-select)))
(defun package--updateable-packages ()
;; Initialize the package system to get the list of package
;; symbols for completion.
(package--archives-initialize)
(mapcar
#'car
(seq-filter
(lambda (elt)
(let ((available
(assq (car elt) package-archive-contents)))
(and available
(version-list-<
(package-desc-priority-version (cadr elt))
(package-desc-priority-version (cadr available))))))
package-alist)))
(defun package-update-all (&optional inhibit-queries)
"Upgrade all packages."
(interactive "P")
(let ((updateable (package--updateable-packages)))
(if (not updateable)
(message "No packages to update")
(when (and (not inhibit-queries)
(not (yes-or-no-p
(if (length= updateable 1)
"One package to update. Do it? "
(format "%s packages to update. Do it?"
(length updateable))))))
(user-error "Updating aborted"))
(mapc #'package-update updateable))))
(defun package-strip-rcs-id (str)
"Strip RCS version ID from the version string STR.