branch: master commit 2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05 Author: Artur Malabarba <bruce.connor...@gmail.com> Commit: Artur Malabarba <bruce.connor...@gmail.com>
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 <em...@endlessparentheses.com> ;; 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))