Mercurial > emacs

comparison lisp/cus-face.el @ 18257:34f1f8c5eda3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use booleans.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Sun, 15 Jun 1997 15:25:57 +0000
parents 2b225f00d308
children 2e91237ac14c
comparison
equal deleted inserted replaced
18256:27f2dfb2c1de 18257:34f1f8c5eda3
61 face) 61 face)
62 62
63 ;;; Font Attributes. 63 ;;; Font Attributes.
64 64
65 (defconst custom-face-attributes 65 (defconst custom-face-attributes
66 '((:bold (toggle :format "%[Bold%]: %v\n" 66 '((:bold (boolean :tag "Bold"
67 :help-echo "Control whether a bold font should be used.") 67 :help-echo "Control whether a bold font should be used.")
68 set-face-bold-p 68 set-face-bold-p
69 face-bold-p) 69 face-bold-p)
70 (:italic (toggle :format "%[Italic%]: %v\n" 70 (:italic (boolean :tag "Italic"
71 :help-echo "\ 71 :help-echo "\
72 Control whether an italic font should be used.") 72 Control whether an italic font should be used.")
73 set-face-italic-p 73 set-face-italic-p
74 face-italic-p) 74 face-italic-p)
75 (:underline (toggle :format "%[Underline%]: %v\n" 75 (:underline (boolean :tag "Underline"
76 :help-echo "\ 76 :help-echo "\
77 Control whether the text should be underlined.") 77 Control whether the text should be underlined.")
78 set-face-underline-p 78 set-face-underline-p
79 face-underline-p) 79 face-underline-p)
80 (:inverse-video (toggle :format "%[Inverse-Video%]: %v\n" 80 (:inverse-video (boolean :tag "Inverse Video"
81 :help-echo "\ 81 :help-echo "\
82 Control whether the text should be in inverse video.") 82 Control whether the text should be in inverse video.")
83 set-face-inverse-video-p 83 set-face-inverse-video-p
84 face-inverse-video-p) 84 face-inverse-video-p)
85 (:foreground (color :tag "Foreground" 85 (:foreground (color :tag "Foreground"
86 :value "black" 86 :value "black"