summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorYuan Fu <casouri@gmail.com>2022-10-06 11:06:07 -0700
committerYuan Fu <casouri@gmail.com>2022-10-06 11:06:07 -0700
commitcea1e95d386270e1e682719232f2cfad384fab91 (patch)
tree75d321f44616ae595756e46144c0cb236c3d72aa /lisp/emacs-lisp
parent7ebbd4efc3d45403cf845d35c36c21756baeeba8 (diff)
parent0c65c9dfb3e1133a16dacd941b2a3cfb892e148a (diff)
downloademacs-cea1e95d386270e1e682719232f2cfad384fab91.tar.gz
emacs-cea1e95d386270e1e682719232f2cfad384fab91.tar.bz2
emacs-cea1e95d386270e1e682719232f2cfad384fab91.zip
Merge branch 'master' into feature/tree-sitter
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/package.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 4abee9d0538..812e1eb0ff7 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2436,10 +2436,14 @@ If NOSAVE is non-nil, the package is not removed from
"Reinstall package PKG.
PKG should be either a symbol, the package name, or a `package-desc'
object."
- (interactive (list (intern (completing-read
- "Reinstall package: "
- (mapcar #'symbol-name
- (mapcar #'car package-alist))))))
+ (interactive
+ (progn
+ (package--archives-initialize)
+ (list (intern (completing-read
+ "Reinstall package: "
+ (mapcar #'symbol-name
+ (mapcar #'car package-alist)))))))
+ (package--archives-initialize)
(package-delete
(if (package-desc-p pkg) pkg (cadr (assq pkg package-alist)))
'force 'nosave)