Mercurial > emacs
changeset 69006:e4d97c1f1377
* custom.el (customize-mark-as-set): Push to `user' theme.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 19 Feb 2006 17:26:44 +0000 |
| parents | 652517eb2b23 |
| children | b9e2a1b4b54a |
| files | lisp/ChangeLog lisp/custom.el |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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)))))