branch: elpa-admin
commit de2fd2225e9a2d6a6358c74d5284e6c55157a0ef
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
* 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)
