Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 19dcec799385
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
52 (run-hooks 'custom-define-hook)) 52 (run-hooks 'custom-define-hook))
53 face) 53 face)
54 54
55 ;;; Font Attributes. 55 ;;; Font Attributes.
56 56
57 ;; Consider adding the stuff in the XML font model here.
57 (defconst custom-face-attributes 58 (defconst custom-face-attributes
58 '((:foreground (color :tag "Foreground" 59 '((:foreground (color :tag "Foreground"
59 :value "" 60 :value ""
60 :help-echo "Set foreground color.") 61 :help-echo "Set foreground color.")
61 set-face-foreground face-foreground-name) 62 set-face-foreground face-foreground-name)
96 set-face-reverse-p face-reverse-p)) 97 set-face-reverse-p face-reverse-p))
97 "Alist of face attributes. 98 "Alist of face attributes.
98 99
99 The elements are of the form (KEY TYPE SET GET) where KEY is a symbol 100 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 101 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. 102 attribute, SET is a function for setting the attribute value, and GET is
103 a function for getting the attribute value.
102 104
103 The SET function should take three arguments, the face to modify, the 105 The SET function should take three arguments, the face to modify, the
104 value of the attribute, and optionally the frame where the face should 106 value of the attribute, and optionally the frame where the face should
105 be changed. 107 be changed.
106 108
107 The GET function should take two arguments, the face to examine, and 109 The GET function should take two arguments, the face to examine, and
108 optonally the frame where the face should be examined.") 110 optionally the frame where the face should be examined.")
109 111
110 (defun face-custom-attributes-set (face frame &rest atts) 112 (defun face-custom-attributes-set (face frame &rest atts)
111 "For FACE on FRAME set the attributes [KEYWORD VALUE].... 113 "For FACE on FRAME set the attributes [KEYWORD VALUE]....
112 Each keyword should be listed in `custom-face-attributes'. 114 Each keyword should be listed in `custom-face-attributes'.
113 115