Merge commit '3659f0267f1a70a7141b7d53d8a0696d40247c08'

diff --combined packages/validate/validate.el
index 8408b63c3919a16a72708dd9d27ab718b8f0955f,7dfe45b01d15d61271dc91d03a250ab57f624840..7dfe45b01d15d61271dc91d03a250ab57f624840
--- 1/packages/validate/validate.el
--- 2/validate.el
+++ b/packages/validate/validate.el
@@@ -5,7 -5,7 +5,7 @@@
  ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
  ;; Keywords: lisp
  ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5"))
- ;; Version: 0.2
+ ;; Version: 0.3
  
  ;;; Commentary:
  ;;
@@@ -182,5 -182,10 +182,10 @@@ with `validate-value'. NOERROR is passe
         (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