From a4e4ceb47a5579bba7d156ae5535ab02085534de Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sun, 6 Nov 2022 09:47:39 +0100 Subject: [PATCH] Handle strings as keys in 'package-vc-ensure-packages' MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 127a7e073f9..505d258969a 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)) -- 2.39.2