# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871157356 0
# Node ID e487ed925a505c9ecbd16e9c16f09a207963fc6a
# Parent  e4b14e6fd28f09c3f7563a388f8ebb536477dce9
(custom-declare-face): Call make-face-x-resource-internal.

diff -r e4b14e6fd28f -r e487ed925a50 lisp/cus-face.el
--- a/lisp/cus-face.el	Sat Aug 09 19:11:15 1997 +0000
+++ b/lisp/cus-face.el	Sat Aug 09 20:09:16 1997 +0000
@@ -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)