(frame-set-background-mode):

Pay attention to saved face specs as well as default ones.

(frame-set-background-mode):
Pay attention to saved face specs as well as default ones.
4b33f290 · Miles Bader · df3c11b9 · 4b33f290 · 4b33f290
Commit 4b33f290 authored Oct 11, 2000 by Miles Bader
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/faces.el lisp/faces.el +2 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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:

--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -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.