(custom-theme-recalc-face): Simply call `face-spec-recalc'.

diff --git a/lisp/custom.el b/lisp/custom.el
index bbee71ecf1fb41434805bfbf4d17347943e89760..d39bbb37e07f3df12fe3cad800ca6a97bd72b7ac 100644 (file)
--- 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)))
 \f
 ;;; XEmacs compability functions