(make-face-x-resource-internal face))))
;; Don't record SPEC until we see it causes no errors.
(put face 'face-defface-spec spec)
+ (push (cons 'defface face) current-load-list)
(when (and doc (null (face-documentation face)))
(set-face-documentation face (purecopy doc)))
(custom-handle-all-keywords face args 'custom-face)
(:foreground
(color :tag "Foreground"
- :help-echo "Set foreground color."))
+ :help-echo "Set foreground color (name or #RRGGBB hex spec)."))
(:background
(color :tag "Background"
- :help-echo "Set background color."))
+ :help-echo "Set background color (name or #RRGGBB hex spec)."))
(:stipple
(choice :tag "Stipple"