mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use booleans.

Browse source
This commit is contained in:
Per Abrahamsen 1997-06-15 15:25:57 +00:00
parent 91fe8c378e
commit 9432de85b7
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/cus-face.el
View file

@ -63,22 +63,22 @@
;;; Font Attributes.
(defconst custom-face-attributes
'((:bold (toggle :format "%[Bold%]: %v\n"
:help-echo "Control whether a bold font should be used.")
'((:bold (boolean :tag "Bold"
:help-echo "Control whether a bold font should be used.")
set-face-bold-p
face-bold-p)
(:italic (toggle :format "%[Italic%]: %v\n"
:help-echo "\
(:italic (boolean :tag "Italic"
:help-echo "\
Control whether an italic font should be used.")
set-face-italic-p
face-italic-p)
(:underline (toggle :format "%[Underline%]: %v\n"
:help-echo "\
(:underline (boolean :tag "Underline"
:help-echo "\
Control whether the text should be underlined.")
set-face-underline-p
face-underline-p)
(:inverse-video (toggle :format "%[Inverse-Video%]: %v\n"
:help-echo "\
(:inverse-video (boolean :tag "Inverse Video"
:help-echo "\
Control whether the text should be in inverse video.")
set-face-inverse-video-p
face-inverse-video-p)