From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Aug 1997 20:09:16 +0000 (+0000)
Subject: (custom-declare-face): Call make-face-x-resource-internal.
X-Git-Tag: emacs-20.1~691
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=971e48caaa1cd015404d441f62152c6c82cfd185;p=emacs.git

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

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)