diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-21 11:22:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-21 11:22:00 +0000 |
| commit | 0b2d6b61ab08f108182d063b31c1080318fc7109 (patch) | |
| tree | e2616f0dded5d0ad90713ee1f58b635c8fd62521 /lisp/custom.el | |
| parent | d48430602f2f23c5f9988dcdd2078aec4fad7789 (diff) | |
| download | emacs-0b2d6b61ab08f108182d063b31c1080318fc7109.tar.gz | |
(custom-type-properties): Add new type `triggle' for
use with "boolean" face properties.
Diffstat (limited to 'lisp/custom.el')
| -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)) |