mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
use with "boolean" face properties.
This commit is contained in:
Richard M. Stallman 1996-03-21 11:22:00 +00:00
parent d48430602f
commit 0b2d6b61ab
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/custom.el
View File

@ -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))