diff options
author | Yuan Fu <casouri@gmail.com> | 2022-10-06 11:06:07 -0700 |
---|---|---|
committer | Yuan Fu <casouri@gmail.com> | 2022-10-06 11:06:07 -0700 |
commit | cea1e95d386270e1e682719232f2cfad384fab91 (patch) | |
tree | 75d321f44616ae595756e46144c0cb236c3d72aa /lisp/emacs-lisp | |
parent | 7ebbd4efc3d45403cf845d35c36c21756baeeba8 (diff) | |
parent | 0c65c9dfb3e1133a16dacd941b2a3cfb892e148a (diff) | |
download | emacs-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.el | 12 |
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) |