diff options
| -rw-r--r-- | lisp/=custom.el | 23 |
1 files 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)) |