Mercurial > emacs
changeset 67791:32dce3f26e21
(custom-variable-reset-standard, custom-face-reset-standard):
Recalculate new values.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 24 Dec 2005 04:05:13 +0000 |
| parents | 146a0850a220 |
| children | 1c774eee2980 |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Dec 24 02:51:04 2005 +0000 +++ b/lisp/ChangeLog Sat Dec 24 04:05:13 2005 +0000 @@ -11,7 +11,7 @@ (custom-variable-state-set, custom-face-state-set): Check theme-value. (custom-variable-reset-standard, custom-face-reset-standard): - Remove theme setting entirely. + Remove theme setting entirely. Recalculate new values. 2005-12-23 Juri Linkov <juri@jurta.org>
--- a/lisp/cus-edit.el Sat Dec 24 02:51:04 2005 +0000 +++ b/lisp/cus-edit.el Sat Dec 24 04:05:13 2005 +0000 @@ -2769,6 +2769,7 @@ (when (or (get symbol 'saved-value) (get symbol 'saved-variable-comment)) (put symbol 'saved-value nil) (custom-push-theme 'theme-value symbol 'user 'reset nil) + (custom-theme-recalc-variable symbol) (put symbol 'saved-variable-comment nil) (custom-save-all)) (widget-put widget :custom-state 'unknown) @@ -3434,6 +3435,7 @@ (when (or (get symbol 'saved-face) (get symbol 'saved-face-comment)) (put symbol 'saved-face nil) (custom-push-theme 'theme-face symbol 'user 'reset nil) + (custom-theme-recalc-face symbol) ;; Do not explictly save resets to standards without themes. (if (null (cdr (get symbol 'theme-face))) (put symbol 'theme-face nil))