monnier pushed a commit to branch master
in repository elpa.
commit 66939d1faf3ff2c23b8739ffe7199c06d6af1a1b
Author: Teemu Likonen <[email protected]>
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"
