(custom-type-properties): Add new type `triggle' for

use with "boolean" face properties.

diff --git a/lisp/custom.el b/lisp/custom.el
index 686cc843cdff2a403d3ed10716def19c0117fa3d..7234cbeae5d2f75575ded014bbd5ff69ed7c22e6 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -514,6 +514,17 @@ hierarchy the new entry should be added.  CUSTOM is the entry to add."
                  ((type . const)
                   (tag . "Off")
                   (default . nil))))
+    (triggle (type . choice)
+            ;; On/Off/Default.
+            (data ((type . const)
+                   (tag . "On ")
+                   (default . t))
+                  ((type . const)
+                   (tag . "Off")
+                   (default . nil))
+                  ((type . const)
+                   (tag . "Def")
+                   (default . as-is))))
     (choice (type . default)
            ;; See `custom-match'.
            (query . custom-choice-query)
@@ -621,17 +632,17 @@ Select the properties you want this face to have.")
                        (type . string))
                       "\n"
                       ((tag . "Bold")
-                       (default . nil)
-                       (type . toggle))
+                       (default . as-is)
+                       (type . triggle))
                       "              "
                       ((tag . "Italic")
-                       (default . nil)
-                       (type . toggle))
+                       (default . as-is)
+                       (type . triggle))
                       "             "
                       ((tag . "Underline")
                        (hidden . t)
-                       (default . nil)
-                       (type . toggle)))
+                       (default . as-is)
+                       (type . triggle)))
                 (default . (custom-face-lookup "default" "default" "default"
                                                nil nil nil))
                 (type . list))