X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/24078157b6a5b0b7dbb830e4242dd715dcf89e32..de55883970f631196ae8c8f7b0531bd92151b74e:/validate.el
diff --git a/validate.el b/validate.el
index ef628e954..1ded67b0d 100644
--- a/validate.el
+++ b/validate.el
@@ -7,21 +7,8 @@
;; Package-Requires: ((emacs "24.1") (cl-lib "0.5"))
;; Version: 0.1
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see .
-
;;; Commentary:
-
+;;
;; This library offers two functions that perform schema validation.
;; Use this is your Elisp packages to provide very informative error
;; messages when your users accidentally misconfigure a variable.
@@ -45,6 +32,26 @@
;; matches. The function `validate-variable' verifies whether the value of a
;; custom variable matches its custom-type, while `validate-value' checks an
;; arbitrary value against an arbitrary schema.
+;;
+;; Missing features: `:inline', `plist', `coding-system', `color',
+;; `hook', `restricted-sexp'.
+
+;;; License:
+;;
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see .
;;; Code:
(require 'cl-lib)
@@ -68,7 +75,7 @@ If they don't match, return an explanation."
(setq args (or (plist-get props :args)
args))
(let ((r
- (cl-labels ((wtype ;wrong-type
+ (cl-labels ((wtype ;wrong-type
(tt) (unless (funcall (intern (format "%sp" tt)) value)
(format "not a %s" tt))))
;; TODO: hook (top-level only).