(custom-variable-reset-standard, custom-face-reset-standard):

	Recalculate new values.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29437c27ce319f52433bb870964c5f6a65a11a07..7c5b5fd96c138f31a9ba180db116e8a18f0b0168 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 948d8329d9d6695b0fcac77ffa281efd18c1995a..27be2a84980e6c633836160dee4355298086e5e4 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2769,6 +2769,7 @@ becomes the backup value, so you can get it again."
     (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 @@ restoring it to the state of a face that has never been customized."
     (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))