From 12c29dba8b90981a21b6414a433c4d82090a4cc0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Dec 2007 03:33:21 +0000 Subject: [PATCH] (custom-theme-recalc-face): Simply call `face-spec-recalc'. --- lisp/custom.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index bbee71ecf1f..d39bbb37e07 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1176,9 +1176,7 @@ This function returns nil if no custom theme specifies a value for VARIABLE." (defun custom-theme-recalc-face (face) "Set FACE according to currently enabled custom themes." (if (facep face) - (let ((theme-faces (reverse (get face 'theme-face)))) - (dolist (spec theme-faces) - (face-spec-set face (cadr spec)))))) + (face-spec-recalc face))) ;;; XEmacs compability functions -- 2.39.2