diff options
| author | Philip Kaludercic | 2022-11-06 09:47:39 +0100 |
|---|---|---|
| committer | Philip Kaludercic | 2022-11-17 20:37:28 +0100 |
| commit | a4e4ceb47a5579bba7d156ae5535ab02085534de (patch) | |
| tree | 2c67b6a26a1af73e46e7ef214435c495469a2dba | |
| parent | e55be31d557adde5f6183e0af19cc752ac0d9064 (diff) | |
| download | emacs-a4e4ceb47a5579bba7d156ae5535ab02085534de.tar.gz emacs-a4e4ceb47a5579bba7d156ae5535ab02085534de.zip | |
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č.
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 5 |
1 files 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." | |||
| 120 | (defvar package-vc-selected-packages) ; pacify byte-compiler | 120 | (defvar package-vc-selected-packages) ; pacify byte-compiler |
| 121 | (defun package-vc-ensure-packages () | 121 | (defun package-vc-ensure-packages () |
| 122 | "Ensure packages specified in `package-vc-selected-packages' are installed." | 122 | "Ensure packages specified in `package-vc-selected-packages' are installed." |
| 123 | (pcase-dolist (`(,(and (pred symbolp) name) . ,spec) | 123 | (pcase-dolist (`(,name . ,spec) package-vc-selected-packages) |
| 124 | package-vc-selected-packages) | 124 | (when (stringp name) |
| 125 | (setq name (intern name))) | ||
| 125 | (let ((pkg-desc (cadr (assoc name package-alist #'string=)))) | 126 | (let ((pkg-desc (cadr (assoc name package-alist #'string=)))) |
| 126 | (unless (and name (package-installed-p name) | 127 | (unless (and name (package-installed-p name) |
| 127 | (package-vc-p pkg-desc)) | 128 | (package-vc-p pkg-desc)) |