Mercurial > emacs

comparison lisp/cus-face.el @ 17567:71dfc9f61821

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Per Abrahamsen <abraham@dina.kvl.dk>
date Sat, 26 Apr 1997 13:40:48 +0000
parents 8ba505704d9d
children 65f85125b4f2
comparison
equal deleted inserted replaced
17566:7ed40081342f 17567:71dfc9f61821
57 face) 57 face)
58 58
59 ;;; Font Attributes. 59 ;;; Font Attributes.
60 60
61 (defconst custom-face-attributes 61 (defconst custom-face-attributes
62 '((:bold (toggle :format "Bold: %[%v%]\n" 62 '((:bold (toggle :format "%[Bold%]: %v\n"
63 :help-echo "Control whether a bold font should be used.") 63 :help-echo "Control whether a bold font should be used.")
64 set-face-bold-p 64 set-face-bold-p
65 face-bold-p) 65 face-bold-p)
66 (:italic (toggle :format "Italic: %[%v%]\n" 66 (:italic (toggle :format "%[Italic%]: %v\n"
67 :help-echo "\ 67 :help-echo "\
68 Control whether an italic font should be used.") 68 Control whether an italic font should be used.")
69 set-face-italic-p 69 set-face-italic-p
70 face-italic-p) 70 face-italic-p)
71 (:underline (toggle :format "Underline: %[%v%]\n" 71 (:underline (toggle :format "%[Underline%]: %v\n"
72 :help-echo "\ 72 :help-echo "\
73 Control whether the text should be underlined.") 73 Control whether the text should be underlined.")
74 set-face-underline-p 74 set-face-underline-p
75 face-underline-p) 75 face-underline-p)
76 (:foreground (color :tag "Foreground" 76 (:foreground (color :tag "Foreground"