[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/package-vc-fixes 692edc9e72 26/48: Have 'package-vc-selected-pac
From: |
Philip Kaludercic |
Subject: |
scratch/package-vc-fixes 692edc9e72 26/48: Have 'package-vc-selected-packages' consider all installed packages |
Date: |
Wed, 16 Nov 2022 04:50:02 -0500 (EST) |
branch: scratch/package-vc-fixes
commit 692edc9e72d1d19885b4b3804cfe2854bef0f1ce
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
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.
---
lisp/emacs-lisp/package-vc.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 97dd8b4b5f..8dabd42771 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -120,9 +120,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))
@@ -130,7 +129,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 '()
- scratch/package-vc-fixes 3046447102 22/48: ; Assert that 'package-lisp-dir' is used with real packages, (continued)
- scratch/package-vc-fixes 3046447102 22/48: ; Assert that 'package-lisp-dir' is used with real packages, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 78830856bc 28/48: Rename 'package-vc-refresh' to 'package-vc-rebuild', Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 2024a01fdc 30/48: Mention package name when package is lacking VC data, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 6080b169f3 47/48: Avoid duplicate source packages in 'package-alist', Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 9bbfdbba24 06/48: Mark 'package-vc-update' as interactive, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes e8043ebc57 03/48: Rename '-ensure-packages' to -install-selected-packages', Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 155c3673d7 13/48: Allow specifying a :lisp-dir for package descriptions, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 4b0a5e30b9 16/48: Fix type error in package-vc prompt function, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 7ee6f3e32d 20/48: Fix 'package-vc-install-selected-packages' recursive load, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 3dc2ec3fce 21/48: Make documentation building for source packages more robust, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 692edc9e72 26/48: Have 'package-vc-selected-packages' consider all installed packages,
Philip Kaludercic <=
- scratch/package-vc-fixes 1a3b38f8b9 41/48: Remove duplicate package descriptions after updating, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes d744f988f3 42/48: Only fetch elpa-packages.eld when necessary, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes b8f6ce839a 43/48: Allow the direct installation of package specifications, Philip Kaludercic, 2022/11/16
- scratch/package-vc-fixes 18ee1e728a 48/48: Ensure 'package-vc-prepare-patch' runs in the right directory, Philip Kaludercic, 2022/11/16