(custom-declare-face): Call make-face-x-resource-internal.

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)