[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/repology e0ff38d 2/4: repology-utils: Harden `repology-
From: |
Nicolas Goaziou |
Subject: |
[elpa] externals/repology e0ff38d 2/4: repology-utils: Harden `repology-project-p' |
Date: |
Thu, 28 Jan 2021 09:44:06 -0500 (EST) |
branch: externals/repology
commit e0ff38dc70862752b0d6ef7ae7fe5d748fa53548
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>
repology-utils: Harden `repology-project-p'
* repology-utils.el (repology-project-p): Make sure packages part of
project is a true list.
---
repology-utils.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/repology-utils.el b/repology-utils.el
index ee7e0b1..35582df 100644
--- a/repology-utils.el
+++ b/repology-utils.el
@@ -149,7 +149,7 @@ The version string is emphasized according to PACKAGE's
status."
(defun repology-project-p (object)
"Return t if OBJECT is a project."
(pcase object
- (`(,(pred symbolp) . ,packages)
+ (`(,(pred symbolp) . ,(and (pred listp) packages))
(seq-every-p #'repology-package-p packages))
(_ nil)))