[elpa] 300/352: Simplify the customize code of wcheck-language-data

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 66939d1faf3ff2c23b8739ffe7199c06d6af1a1b
Author: Teemu Likonen <address@hidden>
Date:   Wed Jul 27 22:08:19 2011 +0300

    Simplify the customize code of wcheck-language-data
---
 wcheck-mode.el |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 701ba8b..70dc47b 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -146,25 +146,27 @@
      (repeat
       :tag ""
       (cons :format "%v"
+
             (choice :format "%[Major mode%] %v"
                     (const :tag "All major modes"
-                           :match (lambda (widget value) (not value))
+                           :match (lambda (widget value) (null value))
                            nil)
                     (repeat
                      :tag "Select major modes"
                      :match (lambda (widget value)
-                              (and value (or (symbolp value) (listp value))))
+                              (or (symbolp value) (consp value)))
                      :value-to-internal (lambda (widget value)
                                           (if (symbolp value)
                                               (list value)
                                             value))
                      :value-to-external (lambda (widget value)
-                                          (if (and (listp value)
+                                          (if (and (consp value)
                                                    (symbolp (car value))
                                                    (null (cdr value)))
                                               (car value)
                                             value))
                      (symbol :format "%v")))
+
             (choice :format "%[Operation mode%] %v"
                     (const :tag "Read everything" nil)
                     (cons :tag "Read selected faces" :format "%v"