[elpa] 129/352: Hienosäätöä customize-valikkoon

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 661255dcf86a535cba491ea76f07def888b63c7b
Author: Teemu Likonen <address@hidden>
Date:   Sat Jul 25 11:09:51 2009 +0000

    Hienosäätöä customize-valikkoon
---
 wcheck-mode.el |   76 ++++++++++++++++++++++++++++----------------------------
 1 files changed, 38 insertions(+), 38 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index acbbca8..50ca881 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -160,44 +160,44 @@ An example contents of the `wcheck-language-data' 
variable:
   '(alist
     :key-type (string :tag "Language")
     :value-type
-    (cons :format "%v"
-          (cons :format "%v"
-                (const :tag "Program: " :format "%t" program)
-                (file :format "%v"))
-          (repeat
-           :tag "Settings"
-           (choice
-            (cons :tag "Arguments" :format "%v"
-                  (const :tag "Arguments: " :format "%t" args)
-                  (string :format "%v"))
-            (cons :tag "Connection type" :format "%v"
-                  (const :tag "Connection type: " :format "%t" connection)
-                  (choice :format "%[Value Menu%] %v" :value nil
-                          (const :tag "pipe (nil)" nil)
-                          (const :tag "pty" pty)))
-            (cons :tag "Face" :format "%v"
-                  (const :tag "Face: " :format "%t" face)
-                  (symbol :format "%v" :value wcheck-default-face))
-            (cons :tag "Syntax table" :format "%v"
-                  (const :tag "Syntax table: " :format "%t" syntax)
-                  (variable :format "%v" :value text-mode-syntax-table))
-            (cons :tag "Regexp start" :format "%v"
-                  (const :tag "Regexp start: " :format "%t" regexp-start)
-                  (regexp :format "%v" :value "\\<'*"))
-            (cons :tag "Regexp body" :format "%v"
-                  (const :tag "Regexp body: " :format "%t" regexp-body)
-                  (regexp :format "%v" :value "\\w+?"))
-            (cons :tag "Regexp end" :format "%v"
-                  (const :tag "Regexp end: " :format "%t" regexp-end)
-                  (regexp :format "%v" :value "'*\\>"))
-            (cons :tag "Regexp discard" :format "%v"
-                  (const :tag "Regexp discard: " :format "%t" regexp-discard)
-                  (regexp :format "%v" :value "\\`'+\\'"))
-            (cons :tag "Regexp case" :format "%v"
-                  (const :tag "Regexp case: " :format "%t" case-fold)
-                  (choice :format "%[Value Menu%] %v" :value nil
-                          (const :tag "sensitive" nil)
-                          (const :tag "insensitive" t))))))))
+    (repeat
+     :tag "Settings"
+     (choice
+      :format "%[Value Menu%] %v"
+      (cons :tag "Program" :format "%v"
+            (const :tag "Program: " :format "%t" program)
+            (file :format "%v"))
+      (cons :tag "Arguments" :format "%v"
+            (const :tag "Arguments: " :format "%t" args)
+            (string :format "%v"))
+      (cons :tag "Connection type" :format "%v"
+            (const :tag "Connection type: " :format "%t" connection)
+            (choice :format "%[Value Menu%] %v" :value nil
+                    (const :tag "pipe (nil)" nil)
+                    (const :tag "pty" pty)))
+      (cons :tag "Face" :format "%v"
+            (const :tag "Face: " :format "%t" face)
+            (symbol :format "%v" :value wcheck-default-face))
+      (cons :tag "Syntax table" :format "%v"
+            (const :tag "Syntax table: " :format "%t" syntax)
+            (variable :format "%v" :value text-mode-syntax-table))
+      (cons :tag "Regexp start" :format "%v"
+            (const :tag "Regexp start: " :format "%t" regexp-start)
+            (regexp :format "%v" :value "\\<'*"))
+      (cons :tag "Regexp body" :format "%v"
+            (const :tag "Regexp body: " :format "%t" regexp-body)
+            (regexp :format "%v" :value "\\w+?"))
+      (cons :tag "Regexp end" :format "%v"
+            (const :tag "Regexp end: " :format "%t" regexp-end)
+            (regexp :format "%v" :value "'*\\>"))
+      (cons :tag "Regexp discard" :format "%v"
+            (const :tag "Regexp discard: " :format "%t" regexp-discard)
+            (regexp :format "%v" :value "\\`'+\\'"))
+      (cons :tag "Regexp case" :format "%v"
+            (const :tag "Regexp case: " :format "%t" case-fold)
+            (choice :format "%[Value Menu%] %v" :value nil
+                    (const :tag "sensitive" nil)
+                    (const :tag "insensitive" t)))))))
 
 
 (defconst wcheck-language-data-defaults