From 4fed620fe959c89dd29dc2a083e29ff2abc36d38 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 21 Mar 1996 11:22:00 +0000 Subject: (custom-type-properties): Add new type `triggle' for use with "boolean" face properties. --- lisp/=custom.el | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) 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)) -- cgit v1.2.1