# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1198985601 0
# Node ID 531c5185ef7cda2ae7051840e9d79fe41a117bd2
# Parent  bdb41961250324fd8390ff86c810c1a30c6e8244
(custom-theme-recalc-face): Simply call `face-spec-recalc'.

diff -r bdb419612503 -r 531c5185ef7c lisp/custom.el
--- a/lisp/custom.el	Sun Dec 30 03:32:34 2007 +0000
+++ b/lisp/custom.el	Sun Dec 30 03:33:21 2007 +0000
@@ -1176,9 +1176,7 @@
 (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