2007-09-07 Johan Bockg� <bojohan@gnu.org>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31f5ff2f76a07aaee0ba870340a7f57953437f6d..b1e2ba0f8ede8397d4fe2498dbc99e35afb95eb8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-07  Johan Bockg\e,Ae\e(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 --git a/lisp/cus-face.el b/lisp/cus-face.el
index 900a815b1607592adf38946743ea840daf4c1e40..09cf058dc64ef19075077fc47854935cfad1c9bd 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -342,7 +342,8 @@ FACE's list property `theme-face' \(using `custom-push-theme')."
                (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))