diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2011-01-12 10:17:40 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2011-01-12 10:17:40 +0000 |
commit | 26dbc9d6f2323d28677535fcb97cb49ee8742b17 (patch) | |
tree | 6babfa132ace5aeb14eba667678e56f92c5223bd /generic/proof-utils.el | |
parent | a0989ebd96d6e15f24f902a45b9147b10c912974 (diff) |
Type-check on integer settings
Diffstat (limited to 'generic/proof-utils.el')
-rw-r--r-- | generic/proof-utils.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/proof-utils.el b/generic/proof-utils.el index 0b73803b..d5ae9547 100644 --- a/generic/proof-utils.el +++ b/generic/proof-utils.el @@ -543,6 +543,9 @@ It was constructed with `proof-defintset-fn'.") (format "Value for %s (int, currently %s): " (symbol-name (quote ,var)) (symbol-value (quote ,var)))))) + (unless (integerp arg) + ;; type-check to avoid customize type mismatch + (error "Value should be an integer!")) (customize-set-variable (quote ,var) arg)))) (defmacro proof-defintset (var &optional othername) |