Mercurial > emacs
comparison lisp/cus-face.el @ 17567:71dfc9f61821
*** 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" |