mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
* cus-face.el (custom-theme-set-faces): Set face attributes
	locally for each frame.
This commit is contained in:
Romain Francoise 2007-09-07 16:50:02 +00:00
parent a227f16320
commit e141eb2e97
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

3
lisp/cus-face.el
View File

@ -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))