Have 'package-vc-selected-packages' consider all installed packages
* lisp/emacs-lisp/package-vc.el (package-vc-install-selected-packages): Consider more than just one value in `package-alist', in case there are multiple installations.
This commit is contained in:
parent
2ed115fc3c
commit
496c578d9c
1 changed files with 3 additions and 4 deletions
|
@ -119,9 +119,8 @@ the `clone' function."
|
|||
(pcase-dolist (`(,name . ,spec) package-vc-selected-packages)
|
||||
(when (stringp name)
|
||||
(setq name (intern name)))
|
||||
(let ((pkg-desc (cadr (assoc name package-alist #'string=))))
|
||||
(unless (and name (package-installed-p name)
|
||||
(package-vc-p pkg-desc))
|
||||
(let ((pkg-descs (assoc name package-alist #'string=)))
|
||||
(unless (seq-some #'package-vc-p (cdr pkg-descs))
|
||||
(cond
|
||||
((null spec)
|
||||
(package-vc-install name))
|
||||
|
@ -129,7 +128,7 @@ the `clone' function."
|
|||
(package-vc-install name nil spec))
|
||||
((listp spec)
|
||||
(package-vc--archives-initialize)
|
||||
(package-vc--unpack pkg-desc spec)))))))
|
||||
(package-vc--unpack (cadr pkg-descs) spec)))))))
|
||||
|
||||
;;;###autoload
|
||||
(defcustom package-vc-selected-packages '()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue