mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki 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
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))