# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1189183802 0
# Node ID ac2caa9660e729750be166545b5f4e11f3404853
# Parent  5368313283054a4b1f47cfa60df81d2c1ff926b6
2007-09-07  Johan Bockg?  <bojohan@gnu.org>

	* cus-face.el (custom-theme-set-faces): Set face attributes
	locally for each frame.

diff -r 536831328305 -r ac2caa9660e7 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 07 15:07:13 2007 +0000
+++ b/lisp/ChangeLog	Fri Sep 07 16:50:02 2007 +0000
@@ -1,3 +1,8 @@
+2007-09-07  Johan Bockg,Ae(Brd  <bojohan@gnu.org>
+
+	* cus-face.el (custom-theme-set-faces): Set face attributes
+	locally for each frame.
+
 2007-09-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* progmodes/fortran.el (fortran-mode): Set font-lock-syntactic-keywords
diff -r 536831328305 -r ac2caa9660e7 lisp/cus-face.el
--- a/lisp/cus-face.el	Fri Sep 07 15:07:13 2007 +0000
+++ b/lisp/cus-face.el	Fri Sep 07 16:50:02 2007 +0000
@@ -342,7 +342,8 @@
 		(unless (facep face)
 		  (make-empty-face face))
 		(put face 'face-comment comment)
-		(face-spec-set face spec))
+		(dolist (frame (frame-list))
+		  (face-spec-set face spec frame)))
 	    (setq args (cdr args)))
 	;; Old format, a plist of FACE SPEC pairs.
 	(let ((face (nth 0 args))