[elpa] master 2bc1a7c 1/2: Fix a false negative with list/group/vector schemas
branch: master commit 2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05 Author: Artur Malabarba Commit: Artur Malabarba Fix a false negative with list/group/vector schemas --- validate.el | 9 + 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/validate.el b/validate.el index f2dcc23..a51cd81 100644 --- a/validate.el +++ b/validate.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba ;; Keywords: lisp ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5") (seq "2.16")) -;; Version: 1.0.2 +;; Version: 1.0.4 ;;; Commentary: ;; @@ -60,9 +60,10 @@ (defun validate--check-list-contents (values schemas) "Check that all VALUES match all SCHEMAS." - (if (not (= (length values) (length schemas))) - "wrong number of elements" -(seq-find #'identity (seq-mapn #'validate--check values schemas + (when schemas +(if (not (= (length values) (length schemas))) +"wrong number of elements" + (seq-find #'identity (seq-mapn #'validate--check values schemas) (defun validate--indent-by-2 (x) (replace-regexp-in-string "^" " " x))
[elpa] master c1e148b 2/2: Merge commit '2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05'
branch: master commit c1e148b2677435d0992129df4a7aaa60ab0d046b Merge: 7c20c24 2bc1a7c Author: Artur Malabarba Commit: Artur Malabarba Merge commit '2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05' --- packages/validate/validate.el | 9 + 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/packages/validate/validate.el b/packages/validate/validate.el index f2dcc23..a51cd81 100644 --- a/packages/validate/validate.el +++ b/packages/validate/validate.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba ;; Keywords: lisp ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5") (seq "2.16")) -;; Version: 1.0.2 +;; Version: 1.0.4 ;;; Commentary: ;; @@ -60,9 +60,10 @@ (defun validate--check-list-contents (values schemas) "Check that all VALUES match all SCHEMAS." - (if (not (= (length values) (length schemas))) - "wrong number of elements" -(seq-find #'identity (seq-mapn #'validate--check values schemas + (when schemas +(if (not (= (length values) (length schemas))) +"wrong number of elements" + (seq-find #'identity (seq-mapn #'validate--check values schemas) (defun validate--indent-by-2 (x) (replace-regexp-in-string "^" " " x))