Mercurial > hg > xemacs-beta

diff lisp/prim/faces.el @ 201:eb5470882647 r20-3b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b27
author cvs
date Mon, 13 Aug 2007 10:01:22 +0200
parents acd284d43ca1
children e45d5e7c476e
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 10:00:35 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 10:01:22 2007 +0200
@@ -1158,13 +1158,15 @@
   (if frame
       (progn
 	(reset-face face frame)
-	(face-display-set face spec frame))
+	(face-display-set face spec frame)
+	(init-face-from-resources face frame))
     (let ((frames (relevant-custom-frames)))
       (reset-face face)
       (face-display-set face spec)
       (while frames
 	(face-display-set face spec (car frames))
-	(pop frames)))))
+	(pop frames))
+      (init-face-from-resources face))))
 
 (defun face-display-set (face spec &optional frame)
   "Set FACE to the attributes to the first matching entry in SPEC.