# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1213823647 0
# Node ID 83c52d8906f5bc7590a02874f04bd7528336c349
# Parent  4af4f5a1eb34bcf290843fabc59f966bb4bc90d4
(face-set-after-frame-default): Don't exclude `default'.

diff -r 4af4f5a1eb34 -r 83c52d8906f5 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 18 14:45:11 2008 +0000
+++ b/lisp/ChangeLog	Wed Jun 18 21:14:07 2008 +0000
@@ -1,3 +1,7 @@
+2008-06-18  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* faces.el (face-set-after-frame-default): Don't exclude `default'.
+
 2008-06-18  Glenn Morris  <rgm@gnu.org>
 
 	* mouse.el (buffer-face-mode-invoke): Declare.
diff -r 4af4f5a1eb34 -r 83c52d8906f5 lisp/faces.el
--- a/lisp/faces.el	Wed Jun 18 14:45:11 2008 +0000
+++ b/lisp/faces.el	Wed Jun 18 21:14:07 2008 +0000
@@ -2045,7 +2045,10 @@
     ;; Initialize faces from face specs and X resources.  The
     ;; condition-case prevents invalid specs from causing frame
     ;; creation to fail.
-    (dolist (face (delq 'default (face-list)))
+    (dolist (face (face-list))
+      ;; This loop used to exclude the `default' face for an unknown reason.
+      ;; It lead to odd behaviors where face-spec settings on the `default'
+      ;; face weren't obeyed for new frame.
       (condition-case ()
 	  (progn
 	    (face-spec-recalc face frame)