From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 21 Mar 1996 11:22:00 +0000 (+0000)
Subject: (custom-type-properties): Add new type `triggle' for
X-Git-Tag: emacs-19.34~1009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b2d6b61ab08f108182d063b31c1080318fc7109;p=emacs.git

(custom-type-properties): Add new type `triggle' for
use with "boolean" face properties.
---

diff --git a/lisp/custom.el b/lisp/custom.el
index 686cc843cdf..7234cbeae5d 100644
--- 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))