diff options
| author | Romain Francoise | 2007-09-07 16:50:02 +0000 |
|---|---|---|
| committer | Romain Francoise | 2007-09-07 16:50:02 +0000 |
| commit | e141eb2e9717cdfd112389bd90e0d0616e249e2c (patch) | |
| tree | a4a4dc57749cfd4e8a575f6bde635fafd5464337 /lisp/cus-face.el | |
| parent | a227f163200d86d34b661ab9eb007f7b3cb8bf88 (diff) | |
| download | emacs-e141eb2e9717cdfd112389bd90e0d0616e249e2c.tar.gz emacs-e141eb2e9717cdfd112389bd90e0d0616e249e2c.zip | |
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.el | 3 |
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')." | |||
| 342 | (unless (facep face) | 342 | (unless (facep face) |
| 343 | (make-empty-face face)) | 343 | (make-empty-face face)) |
| 344 | (put face 'face-comment comment) | 344 | (put face 'face-comment comment) |
| 345 | (face-spec-set face spec)) | 345 | (dolist (frame (frame-list)) |
| 346 | (face-spec-set face spec frame))) | ||
| 346 | (setq args (cdr args))) | 347 | (setq args (cdr args))) |
| 347 | ;; Old format, a plist of FACE SPEC pairs. | 348 | ;; Old format, a plist of FACE SPEC pairs. |
| 348 | (let ((face (nth 0 args)) | 349 | (let ((face (nth 0 args)) |