[elpa] 185/352: Customize-asetusten hienosäätöä

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit a7a981bb91e13708d79579b06838b3b7e9fd0eca
Author: Teemu Likonen <address@hidden>
Date:   Mon Dec 27 12:18:45 2010 +0000

    Customize-asetusten hienosäätöä
---
 wcheck-mode.el |   25 +++++++++++++++++++------
 1 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 149d386..f04300f 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -70,11 +70,13 @@
 (defconst wcheck-language-data-customize-interface
   '(choice
     :format "%[Option%] %v"
+
     (cons :tag "Program" :format "%v"
           (const :tag "Program" :format "%t: " program)
           (choice :format "%[Type%] %v"
-                  (file :tag "Filename" :format "%t:\n\t\t%v")
-                  (function :tag "Function" :format "%t:\n\t\t%v")))
+                  (file :tag "Filename" :format "\n\t\t%t: %v")
+                  (function :tag "Function" :format "\n\t\t%t: %v")))
+
     (cons :tag "Arguments" :format "%v"
           (const :format "" args)
           (repeat :tag "Arguments"
@@ -88,6 +90,7 @@
                            (or (listp value)
                                (stringp value)))
                   (string :format "%v")))
+
     (cons :tag "Connection type" :format "%v"
           (const :tag "Connection: " :format "%t" connection)
           (choice :format "%[Type%] %v" :value nil
@@ -96,42 +99,52 @@
                                              (or (eq value t)
                                                  (eq value 'pty)))
                          pty)))
+
     (cons :tag "Face" :format "%v"
           (const :tag "Face" :format "%t: " face)
           (symbol :format "%v"))
+
     (cons :tag "Syntax table" :format "%v"
           (const :tag "Syntax table" :format "%t: " syntax)
           (variable :format "%v"))
+
     (cons :tag "Regexp start" :format "%v"
           (const :tag "Regexp start" :format "%t: " regexp-start)
           (regexp :format "%v"))
+
     (cons :tag "Regexp body" :format "%v"
           (const :tag "Regexp body" :format "%t: " regexp-body)
           (regexp :format "%v"))
+
     (cons :tag "Regexp end" :format "%v"
           (const :tag "Regexp end" :format "%t: " regexp-end)
           (regexp :format "%v"))
+
     (cons :tag "Regexp discard" :format "%v"
           (const :tag "Regexp discard" :format "%t: " regexp-discard)
           (regexp :format "%v"))
+
     (cons :tag "Regexp case" :format "%v"
           (const :tag "Regexp" :format "%t: " case-fold)
           (choice :format "%[Case%] %v" :value nil
                   (const :tag "sensitive" nil)
                   (const :tag "insensitive" t)))
+
     (cons :tag "Suggestion program" :format "%v"
           (const :tag "Suggestion program" :format "%t: " suggestion-program)
           (choice :format "%[Type%] %v"
-                  (file :tag "Filename" :format "%t:\n\t\t%v")
-                  (function :tag "Function" :format "%t:\n\t\t%v")))
+                  (file :tag "Filename" :format "\n\t\t%t: %v")
+                  (function :tag "Function" :format "\n\t\t%t: %v")))
+
     (cons :tag "Suggestion program's arguments" :format "%v"
           (const :format "" suggestion-args)
           (repeat :tag "Suggestion program's arguments"
                   (string :format "%v")))
+
     (cons :tag "Suggestion parser function" :format "%v"
           (const :tag "Suggestion parser" :format "%t: "
                  suggestion-parser)
-          (choice :format "%[Type%] %v" :value nil
+          (choice :format "%[Parser%] %v" :value nil
                   (const :tag "Ispell" wcheck-parse-suggestions-ispell)
                   (const :tag "Lines" wcheck-parse-suggestions-lines)
                   (const :tag "Whitespace" wcheck-parse-suggestions-ws)
@@ -407,7 +420,7 @@ language-specific option does not exist."
     (list :format "%v"
           (string :tag "Language")
           (repeat :inline t
-                  :tag "Settings"
+                  :tag "Options"
                   ,wcheck-language-data-customize-interface))))