changeset 24579:82cf6c4c1e03

(face-set-after-frame-default): Obey the `customized-face' for new faces.
author Richard M. Stallman <rms@gnu.org>
date Tue, 06 Apr 1999 20:04:27 +0000
parents 9bd8fd06673b
children 2d0999df43c7
files lisp/faces.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue Apr 06 20:02:45 1999 +0000
+++ b/lisp/faces.el	Tue Apr 06 20:04:27 1999 +0000
@@ -1443,7 +1443,8 @@
       ;; 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))))