scratch/package-vc-fixes 5132a2b0d0 02/48: Handle strings as keys in 'package-vc-ensure-packages'

[Philip Kaludercic]

branch: scratch/package-vc-fixes
commit 5132a2b0d04a4ab2a2269daa2ff4e495b90e5819
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))