Mercurial > hg > xemacs-beta

diff lisp/faces.el @ 325:f2b5d7006b0a r21-0-60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-60
author cvs
date Mon, 13 Aug 2007 10:47:35 +0200
parents 19dcec799385
children a4f53d9b3154
line wrap: on
line diff
--- a/lisp/faces.el	Mon Aug 13 10:47:10 2007 +0200
+++ b/lisp/faces.el	Mon Aug 13 10:47:35 2007 +0200
@@ -1209,6 +1209,8 @@
 	(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))