Mercurial > emacs
changeset 69037:2e60323be52d
* custom.el (customize-mark-to-save, customize-mark-as-set): Load
the symbol first.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 20 Feb 2006 15:59:51 +0000 |
| parents | cc68ef6b0d93 |
| children | b2288bb7d88f |
| files | lisp/ChangeLog lisp/custom.el |
| diffstat | 2 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Feb 20 10:29:02 2006 +0000 +++ b/lisp/ChangeLog Mon Feb 20 15:59:51 2006 +0000 @@ -1,3 +1,8 @@ +2006-02-20 Chong Yidong <cyd@stupidchicken.com> + + * custom.el (customize-mark-to-save, customize-mark-as-set): Load + the symbol first. + 2006-02-20 Juanma Barranquero <lekktu@gmail.com> * buff-menu.el (list-buffers-noselect): Turn also "\n" into a
--- a/lisp/custom.el Mon Feb 20 10:29:02 2006 +0000 +++ b/lisp/custom.el Mon Feb 20 15:59:51 2006 +0000 @@ -653,6 +653,7 @@ 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)) @@ -681,6 +682,7 @@ default value. Otherwise, set it to nil. Return non-nil iff the `customized-value' property actually changed." + (custom-load-symbol symbol) (let* ((get (or (get symbol 'custom-get) 'default-value)) (value (funcall get symbol)) (customized (get symbol 'customized-value))