# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827407320 0
# Node ID ee6ea46b8e724506cd60f554bdbb5116eb17fc62
# Parent  13d38dfedb51c35fa7bce93526110fc2c8d376ab
(custom-type-properties): Add new type `triggle' for
use with "boolean" face properties.

diff -r 13d38dfedb51 -r ee6ea46b8e72 lisp/=custom.el
--- a/lisp/=custom.el	Wed Mar 20 23:42:05 1996 +0000
+++ b/lisp/=custom.el	Thu Mar 21 11:22:00 1996 +0000
@@ -514,6 +514,17 @@
 		  ((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 @@
 			(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))