diff options
| author | Chong Yidong | 2006-02-19 16:20:21 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-02-19 16:20:21 +0000 |
| commit | 4a9ceb4e9d9e0b5a8c45844c8bd1809985e5e3ef (patch) | |
| tree | 78ccd0bb1611888866b9bf4add629b4be2c72b4f | |
| parent | 2d656942f6430b5135c5c01814d4ee73ad3bece6 (diff) | |
| download | emacs-4a9ceb4e9d9e0b5a8c45844c8bd1809985e5e3ef.tar.gz emacs-4a9ceb4e9d9e0b5a8c45844c8bd1809985e5e3ef.zip | |
* custom.el (customize-mark-to-save): Load the symbol's
dependencies, so that `standard-value' will be present.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/custom.el | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aea866a4bf6..ce799882a1a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2006-02-19 Chong Yidong <cyd@stupidchicken.com> | 1 | 2006-02-19 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 2 | ||
| 3 | * custom.el (customize-mark-to-save): Load the symbol's | ||
| 4 | dependencies, so that `standard-value' will be present. | ||
| 5 | |||
| 3 | * cus-edit.el (custom-save-variables): Allow unthemed values. | 6 | * cus-edit.el (custom-save-variables): Allow unthemed values. |
| 4 | 7 | ||
| 5 | 2006-02-19 Nick Roberts <nickrob@snap.net.nz> | 8 | 2006-02-19 Nick Roberts <nickrob@snap.net.nz> |
diff --git a/lisp/custom.el b/lisp/custom.el index 0f95e3bab73..fe2829e644a 100644 --- a/lisp/custom.el +++ b/lisp/custom.el | |||
| @@ -653,6 +653,7 @@ default value. Otherwise, set it to nil. | |||
| 653 | To actually save the value, call `custom-save-all'. | 653 | To actually save the value, call `custom-save-all'. |
| 654 | 654 | ||
| 655 | Return non-nil iff the `saved-value' property actually changed." | 655 | Return non-nil iff the `saved-value' property actually changed." |
| 656 | (custom-load-symbol symbol) | ||
| 656 | (let* ((get (or (get symbol 'custom-get) 'default-value)) | 657 | (let* ((get (or (get symbol 'custom-get) 'default-value)) |
| 657 | (value (funcall get symbol)) | 658 | (value (funcall get symbol)) |
| 658 | (saved (get symbol 'saved-value)) | 659 | (saved (get symbol 'saved-value)) |