From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Dec 2007 03:33:21 +0000 (+0000)
Subject: (custom-theme-recalc-face): Simply call `face-spec-recalc'.
X-Git-Tag: emacs-pretest-23.0.90~8767
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12c29dba8b90981a21b6414a433c4d82090a4cc0;p=emacs.git

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

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