[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 3659f02 1/2: Add validate-setq
From: |
Artur Malabarba |
Subject: |
[elpa] master 3659f02 1/2: Add validate-setq |
Date: |
Wed, 04 May 2016 15:27:27 +0000 |
branch: master
commit 3659f0267f1a70a7141b7d53d8a0696d40247c08
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Add validate-setq
---
validate.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/validate.el b/validate.el
index 8408b63..7dfe45b 100644
--- a/validate.el
+++ b/validate.el
@@ -5,7 +5,7 @@
;; Author: Artur Malabarba <address@hidden>
;; Keywords: lisp
;; Package-Requires: ((emacs "24.1") (cl-lib "0.5"))
-;; Version: 0.2
+;; Version: 0.3
;;; Commentary:
;;
@@ -182,5 +182,10 @@ with `validate-value'. NOERROR is passed to
`validate-value'."
(lambda (val)
(validate-value val (custom-variable-type symbol) 'noerror))))
+(defmacro validate-setq (symbol value)
+ "Like `setq', but throw an error if validation fails.
+VALUE is validated against SYMBOL's custom type."
+ `(setq ,symbol (validate-value ,value (custom-variable-type ',symbol))))
+
(provide 'validate)
;;; validate.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 3659f02 1/2: Add validate-setq,
Artur Malabarba <=