Commit 0b2d6b61 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-type-properties): Add new type `triggle' for

use with "boolean" face properties.
parent d4843060
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment