From: Miles Bader <miles@gnu.org>
Date: Wed, 11 Oct 2000 07:43:17 +0000 (+0000)
Subject: (frame-set-background-mode):
X-Git-Tag: emacs-pretest-21.0.90~974
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b33f2900fd2c3e832cbf3f1ba61fab8eb7ae368;p=emacs.git

(frame-set-background-mode):
  Pay attention to saved face specs as well as default ones.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2583bba11c..a8f2cad62ca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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:
diff --git a/lisp/faces.el b/lisp/faces.el
index fffb177852c..6906c05447f 100644
--- 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.