summaryrefslogtreecommitdiff
path: root/lisp/cus-face.el
diff options
context:
space:
mode:
authorRomain Francoise <romain@orebokech.com>2007-09-07 16:50:02 +0000
committerRomain Francoise <romain@orebokech.com>2007-09-07 16:50:02 +0000
commite141eb2e9717cdfd112389bd90e0d0616e249e2c (patch)
treea4a4dc57749cfd4e8a575f6bde635fafd5464337 /lisp/cus-face.el
parenta227f163200d86d34b661ab9eb007f7b3cb8bf88 (diff)
downloademacs-e141eb2e9717cdfd112389bd90e0d0616e249e2c.tar.gz
2007-09-07 Johan Bockg� <bojohan@gnu.org>
* cus-face.el (custom-theme-set-faces): Set face attributes locally for each frame.
Diffstat (limited to 'lisp/cus-face.el')
-rw-r--r--lisp/cus-face.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 900a815b160..09cf058dc64 100644
--- 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))