emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]