From acc9e99d8782a1f381d7358d17120eba37c08c4d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 6 Apr 1999 20:04:27 +0000 Subject: [PATCH] (face-set-after-frame-default): Obey the `customized-face' for new faces. --- lisp/faces.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))) -- 2.39.2