From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 6 Apr 1999 20:04:27 +0000 (+0000)
Subject: (face-set-after-frame-default): Obey the
X-Git-Tag: emacs-20.4~370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=acc9e99d8782a1f381d7358d17120eba37c08c4d;p=emacs.git

(face-set-after-frame-default): Obey the
`customized-face' for new faces.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 4c938f2e1ba..dfc6cf025d9 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1443,7 +1443,8 @@ If FRAME is nil, the current FRAME is used."
       ;; Set up each face, first from the defface information,
       ;; then the global face data, and then the X resources.
       (let* ((face (car (car rest)))
-	     (spec (or (get face 'saved-face)
+	     (spec (or (get face 'customized-face)
+		       (get face 'saved-face)
 		       (get face 'face-defface-spec)))
 	     (global (cdr (assq face global-face-data)))
 	     (local (cdr (car rest))))