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 | 4fed620fe959c89dd29dc2a083e29ff2abc36d38 (patch) | |
| tree | c8676c5b184823036d275feba3f3fe69d841174a | |
| parent | a5564776975368fe02df015b2244036aba7baeef (diff) | |
| download | emacs-4fed620fe959c89dd29dc2a083e29ff2abc36d38.tar.gz | |
(custom-type-properties): Add new type `triggle' for
use with "boolean" face properties.
| -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)) |