diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-12-30 03:33:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-12-30 03:33:21 +0000 |
| commit | 12c29dba8b90981a21b6414a433c4d82090a4cc0 (patch) | |
| tree | 7f40f0b5b4ca833cd6573804dd18a0fbd91c7460 /lisp/custom.el | |
| parent | 24837f13fcb75ee1eb1a91dc09a539b15c0e86c7 (diff) | |
| download | emacs-12c29dba8b90981a21b6414a433c4d82090a4cc0.tar.gz | |
(custom-theme-recalc-face): Simply call `face-spec-recalc'.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 4 |
1 files changed, 1 insertions, 3 deletions
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 |