[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin de2fd22: * elpa-admin.el (elpaa-read-config): Allow li
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin de2fd22: * elpa-admin.el (elpaa-read-config): Allow lists of strings |
Date: |
Fri, 16 Apr 2021 17:42:08 -0400 (EDT) |
branch: elpa-admin
commit de2fd2225e9a2d6a6358c74d5284e6c55157a0ef
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el (elpaa-read-config): Allow lists of strings
---
elpa-admin.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 7f1a116..acb7df1 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -75,7 +75,9 @@ on some Debian systems.")
(defun elpaa-read-config (file)
(let ((config (elpaa--form-from-file-contents file)))
(pcase-dolist (`(,var ,val) config)
- (cl-assert (or (stringp val) (booleanp val)) t)
+ (cl-assert (or (stringp val) (booleanp val)
+ (and (consp val) (cl-every #'stringp val)))
+ t)
(setf (pcase-exhaustive var
('name elpaa--name)
('gitrepo elpaa--gitrepo)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] elpa-admin de2fd22: * elpa-admin.el (elpaa-read-config): Allow lists of strings,
Stefan Monnier <=