mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(frame-set-background-mode):

Browse Source 
Pay attention to saved face specs as well as default ones.
This commit is contained in:
Miles Bader 2000-10-11 07:43:17 +00:00
parent df3c11b907
commit 4b33f2900f
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2000-10-11 Miles Bader <miles@lsi.nec.co.jp>
* faces.el (frame-set-background-mode): Pay attention to saved
face specs as well as default ones.
2000-10-10 Sam Steingold <sds@gnu.org>
* chistory.el, ielm.el, ledit.el:

4
lisp/faces.el
View File

@ -1339,13 +1339,13 @@ this won't have the expected effect."
(let ((face-list (face-list)))
(while face-list
(let* ((face (car face-list))
(spec (get face 'face-defface-spec)))
(spec (or (get face 'saved-face)
(get face 'face-defface-spec))))
(when spec
(face-spec-set face spec frame))
(setq face-list (cdr face-list))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Frame creation.