From e141eb2e9717cdfd112389bd90e0d0616e249e2c Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Fri, 7 Sep 2007 16:50:02 +0000 Subject: [PATCH] =?utf8?q?2007-09-07=20=20Johan=20Bockg=EF=BF=BD=20=20?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * cus-face.el (custom-theme-set-faces): Set face attributes locally for each frame. --- lisp/ChangeLog | 5 +++++ lisp/cus-face.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31f5ff2f76a..b1e2ba0f8ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-09-07 Johan Bockg,Ae(Brd + + * cus-face.el (custom-theme-set-faces): Set face attributes + locally for each frame. + 2007-09-07 Stefan Monnier * progmodes/fortran.el (fortran-mode): Set font-lock-syntactic-keywords 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)) -- 2.39.5