Mercurial > emacs

diff lisp/custom.el @ 87820:b0b5bf68e061

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Richard Stallman <rms at gnu.org> (custom-theme-recalc-face): Use face-spec-set rather than face-spec-recalc.
author Glenn Morris <rgm@gnu.org>
date Fri, 18 Jan 2008 05:40:59 +0000
parents 107ccd98fa12
children c70e45a7acfd e36db3830982
line wrap: on
line diff
--- 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