mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Fix calling `package-reinstall' just after quick initialization.

Browse Source 
* lisp/emacs-lisp/package.el (package-reinstall): call
`package--archives-initialize', just like `package-install' does.
This populates `package-alist', and so fixes calling
`package-reinstall' as the first thing done after package "quick
init" (Bug#53527).
This commit is contained in:
Matt Armstrong 2022-10-06 14:08:20 +02:00 committed by Lars Ingebrigtsen
parent d9b026d464
commit e24f276f8a
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/package.el
View File

@ -2436,10 +2436,14 @@ If NOSAVE is non-nil, the package is not removed from
"Reinstall package PKG. "Reinstall package PKG.
PKG should be either a symbol, the package name, or a `package-desc' PKG should be either a symbol, the package name, or a `package-desc'
object." object."
(interactive (list (intern (completing-read (interactive
"Reinstall package: " (progn
(mapcar #'symbol-name (package--archives-initialize)
(mapcar #'car package-alist)))))) (list (intern (completing-read
"Reinstall package: "
(mapcar #'symbol-name
(mapcar #'car package-alist)))))))
(package--archives-initialize)
(package-delete (package-delete
(if (package-desc-p pkg) pkg (cadr (assq pkg package-alist))) (if (package-desc-p pkg) pkg (cadr (assq pkg package-alist)))
'force 'nosave) 'force 'nosave)