Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents 966663fcf606
children 341dac730539
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
53 face) 53 face)
54 54
55 ;;; Font Attributes. 55 ;;; Font Attributes.
56 56
57 (defconst custom-face-attributes 57 (defconst custom-face-attributes
58 '((:bold (boolean :tag "Bold" 58 '((:foreground (color :tag "Foreground"
59 :help-echo "Control whether a bold font should be used.")
60 custom-set-face-bold custom-face-bold)
61 (:italic (boolean :tag "Italic"
62 :help-echo "\
63 Control whether an italic font should be used.")
64 custom-set-face-italic custom-face-italic)
65 (:underline (boolean :tag "Underline"
66 :help-echo "\
67 Control whether the text should be underlined.")
68 set-face-underline-p face-underline-p)
69 (:foreground (color :tag "Foreground"
70 :value "" 59 :value ""
71 :help-echo "Set foreground color.") 60 :help-echo "Set foreground color.")
72 set-face-foreground face-foreground-name) 61 set-face-foreground face-foreground-name)
73 (:background (color :tag "Background" 62 (:background (color :tag "Background"
74 :value "" 63 :value ""
75 :help-echo "Set background color.") 64 :help-echo "Set background color.")
76 set-face-background face-background-name) 65 set-face-background face-background-name)
77 ;; #### Should make it work on X 66 (:size (editable-field :format "Size: %v"
78 (:inverse-video (boolean :tag "Inverse" 67 :help-echo "\
79 :help-echo "\ 68 Text size (e.g. 9pt or 2mm).")
80 Control whether the text should be inverted. Works only on TTY-s") 69 custom-set-face-font-size custom-face-font-size)
81 set-face-reverse-p face-reverse-p)
82 (:stipple (editable-field :format "Stipple: %v" 70 (:stipple (editable-field :format "Stipple: %v"
83 :help-echo "Name of background bitmap file.") 71 :help-echo "Name of background bitmap file.")
84 set-face-stipple custom-face-stipple) 72 set-face-stipple custom-face-stipple)
85 (:family (editable-field :format "Font Family: %v" 73 (:family (editable-field :format "Font Family: %v"
86 :help-echo "\ 74 :help-echo "\
87 Name of font family to use (e.g. times).") 75 Name of font family to use (e.g. times).")
88 custom-set-face-font-family custom-face-font-family) 76 custom-set-face-font-family custom-face-font-family)
89 (:size (editable-field :format "Size: %v" 77 (:bold (toggle :format "%[Bold%]: %v\n"
90 :help-echo "\ 78 :help-echo "Control whether a bold font should be used.")
91 Text size (e.g. 9pt or 2mm).") 79 custom-set-face-bold custom-face-bold)
92 custom-set-face-font-size custom-face-font-size) 80 (:italic (toggle :format "%[Italic%]: %v\n"
81 :help-echo "\
82 Control whether an italic font should be used.")
83 custom-set-face-italic custom-face-italic)
84 (:underline (toggle :format "%[Underline%]: %v\n"
85 :help-echo "\
86 Control whether the text should be underlined.")
87 set-face-underline-p face-underline-p)
88 ;; #### Should make it work on X
93 (:strikethru (toggle :format "%[Strikethru%]: %v\n" 89 (:strikethru (toggle :format "%[Strikethru%]: %v\n"
94 :help-echo "\ 90 :help-echo "\
95 Control whether the text should be strikethru.") 91 Control whether the text should be strikethru.")
96 set-face-strikethru-p face-strikethru-p)) 92 set-face-strikethru-p face-strikethru-p)
93 (:inverse-video (toggle :format "%[Inverse Video%]: %v\n"
94 :help-echo "\
95 Control whether the text should be inverted. Works only on TTY-s")
96 set-face-reverse-p face-reverse-p))
97 "Alist of face attributes. 97 "Alist of face attributes.
98 98
99 The elements are of the form (KEY TYPE SET GET) where KEY is a symbol 99 The elements are of the form (KEY TYPE SET GET) where KEY is a symbol
100 identifying the attribute, TYPE is a widget type for editing the 100 identifying the attribute, TYPE is a widget type for editing the
101 attibute, SET is a function for setting the attribute value, and GET is a function for getiing the attribute value. 101 attibute, SET is a function for setting the attribute value, and GET is a function for getiing the attribute value.