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 | 68117b888ae6e3a5a484e462894535e8df3db08b (patch) | |
| tree | cc02c559485c035393b81276d754b43c02e45b48 /lisp/cus-face.el | |
| parent | cbc22a45357bea5aab14faf2be07dd844c6c0ea5 (diff) | |
| download | emacs-68117b888ae6e3a5a484e462894535e8df3db08b.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) |