Mercurial > emacs

changeset 87484:531c5185ef7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-theme-recalc-face): Simply call `face-spec-recalc'.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Dec 2007 03:33:21 +0000
parents bdb419612503
children 0ef4914a2852
files lisp/custom.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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