From 7ecc4011370164dfea614c338a6732b3074d688c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 10 Jun 2008 19:56:42 +0000 Subject: [PATCH] (face-spec-recalc): When the face is set using Customize, avoid recalculating it twice. --- lisp/faces.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 5537fbef6c3..302cf6c02d8 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1506,8 +1506,9 @@ This applies the defface/custom spec first, then the custom theme specs, then the override spec." (face-spec-reset-face face frame) (let ((face-sym (or (get face 'face-alias) face))) - (face-spec-set-2 face frame - (face-user-default-spec face)) + (or (get face 'customized-face) + (get face 'saved-face) + (face-spec-set-2 face frame (face-default-spec face))) (let ((theme-faces (reverse (get face-sym 'theme-face)))) (dolist (spec theme-faces) (face-spec-set-2 face frame (cadr spec)))) -- 2.39.2