diff options
| author | Per Abrahamsen <abraham@dina.kvl.dk> | 1997-06-15 15:25:57 +0000 |
|---|---|---|
| committer | Per Abrahamsen <abraham@dina.kvl.dk> | 1997-06-15 15:25:57 +0000 |
| commit | 9432de85b71b2bfd752d801e34b24011a036ad22 (patch) | |
| tree | 83b8d4dd80455fcd1b2d6a78c4f4d1481daa32ae /lisp/cus-face.el | |
| parent | 91fe8c378e5f0fae2963fe5ff0ddfefa36ac86d8 (diff) | |
| download | emacs-9432de85b71b2bfd752d801e34b24011a036ad22.tar.gz | |
Use booleans.
Diffstat (limited to 'lisp/cus-face.el')
| -rw-r--r-- | lisp/cus-face.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 773dbccd8d8..3662f296baa 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -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) |