X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Ffaces.el;h=a0c193e4d8769a47112df15d5b0a5ba3248482f9;hp=1870becdb201dc2bfabf37d5410fe179841f13ab;hb=35adcaaeafb1fe93eaf00c39b48619e8f188ff3f;hpb=74f1ef06d302e2f5b0c048e3249bd6f3fc7e5922

diff --git a/lisp/faces.el b/lisp/faces.el
index 1870bec..a0c193e 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1209,6 +1209,8 @@ See `defface' for information about SPEC."
 	(init-face-from-resources face frame))
     (let ((frames (relevant-custom-frames)))
       (reset-face face)
+      (if (and (eq 'default face) (featurep 'x))
+	  (x-init-global-faces))
       (face-display-set face spec)
       (while frames
 	(face-display-set face spec (car frames))