monnier pushed a commit to branch master
in repository elpa.
commit e8ab7feffc15d5fe62060b5ce7e1c20bc54f8f9a
Author: Teemu Likonen <[email protected]>
Date: Sat Jul 2 09:19:48 2011 +0300
Accept any value for case-fold option in customize system
Previously the customize system accepted only symbols t or nil for
case-fold option. Now all non-nil values are accepted and internally
translated to t.
---
wcheck-mode.el | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 85ef266..1b5f446 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -134,6 +134,9 @@
(cons :tag "Regexp case" :format "%v"
(const :tag "Regexp" :format "%t: " case-fold)
(choice :format "%[Case%] %v" :value nil
+ :match (lambda (widget value) t)
+ :value-to-internal (lambda (widget value)
+ (if value t nil))
(const :tag "sensitive" nil)
(const :tag "insensitive" t)))
