# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1200634859 0
# Node ID b0b5bf68e0617d252d55a2f88569c71e39983567
# Parent  66d418e48048986fa35694a6578fa79d4e968905
Richard Stallman  <rms at gnu.org>

(custom-theme-recalc-face): Use face-spec-set rather than
face-spec-recalc.

diff -r 66d418e48048 -r b0b5bf68e061 lisp/custom.el
--- a/lisp/custom.el	Fri Jan 18 05:39:20 2008 +0000
+++ b/lisp/custom.el	Fri Jan 18 05:40:59 2008 +0000
@@ -1176,7 +1176,9 @@
 (defun custom-theme-recalc-face (face)
   "Set FACE according to currently enabled custom themes."
   (if (facep face)
-      (face-spec-recalc face)))
+      (face-spec-set face
+                     (get (or (get face 'face-alias) face)
+                          'face-override-spec))))
 
 ;;; XEmacs compability functions