mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

* custom.el (customize-mark-as-set): Push to `user' theme.

Browse Source
This commit is contained in:
Chong Yidong 2006-02-19 17:26:44 +00:00
parent 4a9ceb4e9d
commit fccf278488
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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>

5
lisp/custom.el
View File

@ -653,7 +653,6 @@ default value. Otherwise, set it to nil.
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 @@ Return non-nil iff the `customized-value' property actually changed."
(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)))))