From 971e48caaa1cd015404d441f62152c6c82cfd185 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Aug 1997 20:09:16 +0000 Subject: [PATCH] (custom-declare-face): Call make-face-x-resource-internal. --- lisp/cus-face.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/cus-face.el b/lisp/cus-face.el index bd120299a1..de51b6a297 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) -- 2.20.1