diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-09 20:09:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-09 20:09:16 +0000 |
| commit | 971e48caaa1cd015404d441f62152c6c82cfd185 (patch) | |
| tree | 6b9729dd292993f6313ee6f10ea8052fbff4a2eb /lisp/cus-face.el | |
| parent | 33eae9c01beae82329e02d7745fab1e485dd0144 (diff) | |
| download | emacs-971e48caaa1cd015404d441f62152c6c82cfd185.tar.gz | |
(custom-declare-face): Call make-face-x-resource-internal.
Diffstat (limited to 'lisp/cus-face.el')
| -rw-r--r-- | lisp/cus-face.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index bd120299a16..de51b6a2973 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -53,7 +53,10 @@ (while frames (setq frame (car frames) frames (cdr frames)) - (face-spec-set face value frame))))) + (face-spec-set face value frame))) + ;; When making a face after frames already exist + (if (memq window-system '(x w32)) + (make-face-x-resource-internal face)))) (when (and doc (null (face-documentation face))) (set-face-documentation face doc)) (custom-handle-all-keywords face args 'custom-face) |