Prettied up customization format
authorTom Breton (Tehom) <tehom@panix.com>
Sun, 27 Jun 2010 20:18:40 +0000 (27 16:18 -0400)
committerTom Breton (Tehom) <tehom@panix.com>
Sun, 27 Jun 2010 20:18:40 +0000 (27 16:18 -0400)
eproject.el

index a7f56e6..c6026a8 100644 (file)
@@ -40,9 +40,9 @@
            :tag "Key sequence" 
            :match-alternatives (vectorp stringp))
         function
-        (choice 
-           (const :tag "always" always)
-           (const :tag "not always" nil))))
+        (choice :format "%[Always provide%] %v"
+           (const :tag "yes" always)
+           (const :tag "no" nil))))
    :group 'prj-group)
 
 
          (list :format "\n%v"
             (string :tag "name")
             (string :tag "shell command")
-            (choice :tag "Key sequence"
+            (choice :format "%[Toggle%] %v"
                (restricted-sexp 
-                  :tag "yes" 
+                  :tag "Key sequence"
                   :match-alternatives (vectorp stringp))
-               (const :inline t :tag "None" nil)))))
+               (const :inline t :tag "No key sequence" nil)))))
    :group 'prj-group)