# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1140370004 0
# Node ID e4d97c1f1377f19c4a4b79113ce600f0cf3d2063
# Parent  652517eb2b23bb9880dde4eec8de72317b01c46e
	* custom.el (customize-mark-as-set): Push to `user' theme.

diff -r 652517eb2b23 -r e4d97c1f1377 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Feb 19 16:20:21 2006 +0000
+++ b/lisp/ChangeLog	Sun Feb 19 17:26:44 2006 +0000
@@ -1,9 +1,9 @@
 2006-02-19  Chong Yidong  <cyd@stupidchicken.com>
 
-	* custom.el (customize-mark-to-save): Load the symbol's
-	dependencies, so that `standard-value' will be present.
+	* custom.el (customize-mark-as-set): Push to `user' theme.
 
 	* cus-edit.el (custom-save-variables): Allow unthemed values.
+	(customize-set-variable): Push setting to `user' theme.
 
 2006-02-19  Nick Roberts  <nickrob@snap.net.nz>
 
diff -r 652517eb2b23 -r e4d97c1f1377 lisp/custom.el
--- a/lisp/custom.el	Sun Feb 19 16:20:21 2006 +0000
+++ b/lisp/custom.el	Sun Feb 19 17:26:44 2006 +0000
@@ -653,7 +653,6 @@
 To actually save the value, call `custom-save-all'.
 
 Return non-nil iff the `saved-value' property actually changed."
-  (custom-load-symbol symbol)
   (let* ((get (or (get symbol 'custom-get) 'default-value))
 	 (value (funcall get symbol))
 	 (saved (get symbol 'saved-value))
@@ -691,7 +690,9 @@
 	    (not (equal value (condition-case nil
 				  (eval (car old))
 				(error nil)))))
-	(put symbol 'customized-value (list (custom-quote value)))
+	(progn (put symbol 'customized-value (list (custom-quote value)))
+	       (custom-push-theme 'theme-value symbol 'user 'set
+				  (custom-quote value)))
       (put symbol 'customized-value nil))
     ;; Changed?
     (not (equal customized (get symbol 'customized-value)))))