[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/package-vc-fixes 61048ae3fa 02/16: Handle strings as keys in 'pa
From: |
Philip Kaludercic |
Subject: |
scratch/package-vc-fixes 61048ae3fa 02/16: Handle strings as keys in 'package-vc-ensure-packages' |
Date: |
Thu, 10 Nov 2022 14:44:04 -0500 (EST) |
branch: scratch/package-vc-fixes
commit 61048ae3faec766aeaf04d3157be3cf314b22ec5
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Handle strings as keys in 'package-vc-ensure-packages'
* lisp/emacs-lisp/package-vc.el (package-vc-ensure-packages): Inter
sting keys while processing 'package-vc-selected-packages'.
As requested by Rudolf Adamkovič.
---
lisp/emacs-lisp/package-vc.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 127a7e073f..505d258969 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -120,8 +120,9 @@ the `clone' function."
(defvar package-vc-selected-packages) ; pacify byte-compiler
(defun package-vc-ensure-packages ()
"Ensure packages specified in `package-vc-selected-packages' are installed."
- (pcase-dolist (`(,(and (pred symbolp) name) . ,spec)
- package-vc-selected-packages)
+ (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))
- scratch/package-vc-fixes c94b80caf1 05/16: Autoload 'package-vc-install-selected-packages', (continued)
- scratch/package-vc-fixes c94b80caf1 05/16: Autoload 'package-vc-install-selected-packages', Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes b19bf809f8 06/16: Mark 'package-vc-update' as interactive, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes c7b485da75 07/16: Fix 'package-vc-selected-packages' documentation, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 55af74cd1e 08/16: Fix the docstring for 'package-vc--version', Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 95882b0567 09/16: Clarify 'package-vc--build-documentation' docstring, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 6ba14d437b 10/16: Expand 'package-vc--unpack-1' documentation, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 12a7853844 11/16: Remove references to internal symbols from public docstrings, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 9e4ef24033 15/16: Explain what "refreshing" a source package means, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes a2be7f006a 16/16: Fix type error in package-vc prompt function, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes cb6415a45a 01/16: ; Fix interactive spec for 'package-vc-refresh', Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 61048ae3fa 02/16: Handle strings as keys in 'package-vc-ensure-packages',
Philip Kaludercic <=
- scratch/package-vc-fixes fe4b9fbbd3 03/16: Rename '-ensure-packages' to -install-selected-packages', Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes ed0caa9032 04/16: Mark 'package-vc-install-selected-packages' as interactive, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 8956d833b3 12/16: Fix generation of documentation for source packages, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes 1eeca3607e 13/16: Allow specifying a :lisp-dir for package descriptions, Philip Kaludercic, 2022/11/10
- scratch/package-vc-fixes cf39a432f9 14/16: Track 'default-directory' while updating source packages, Philip Kaludercic, 2022/11/10