Mercurial > emacs

changeset 14851:ee6ea46b8e72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-type-properties): Add new type `triggle' for use with "boolean" face properties.
author Richard M. Stallman <rms@gnu.org>
date Thu, 21 Mar 1996 11:22:00 +0000
parents 13d38dfedb51
children b65bb6d88e90
files lisp/=custom.el
diffstat 1 files changed, 17 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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))