# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 971250154 0
# Node ID 60c801b8bc105641baa51ad51b3782e1be097fb1
# Parent  1281dfa22cb3b489009cdd52d797e3742a8f894a
(frame-set-background-mode):
  Pay attention to saved face specs as well as default ones.

diff -r 1281dfa22cb3 -r 60c801b8bc10 lisp/faces.el
--- a/lisp/faces.el	Wed Oct 11 01:23:36 2000 +0000
+++ b/lisp/faces.el	Wed Oct 11 07:42:34 2000 +0000
@@ -1339,13 +1339,13 @@
   (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.