From 338191ce01e13281fad699dcf98a725428a2efc8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 18 Jun 2008 21:14:07 +0000 Subject: [PATCH] (face-set-after-frame-default): Don't exclude `default'. --- lisp/ChangeLog | 4 ++++ lisp/faces.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e02738e9b7..88debfeb812 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-06-18 Stefan Monnier + + * faces.el (face-set-after-frame-default): Don't exclude `default'. + 2008-06-18 Glenn Morris * mouse.el (buffer-face-mode-invoke): Declare. diff --git a/lisp/faces.el b/lisp/faces.el index f3e88686196..251bacc5610 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2045,7 +2045,10 @@ Initialize colors of certain faces from frame parameters." ;; 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) -- 2.39.2