[elpa] 277/352: Accept any value for case-fold option in customize system

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit e8ab7feffc15d5fe62060b5ce7e1c20bc54f8f9a
Author: Teemu Likonen <address@hidden>
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)))