diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-02-19 15:50:09 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-02-19 15:50:09 +0000 |
| commit | 2d656942f6430b5135c5c01814d4ee73ad3bece6 (patch) | |
| tree | 4ef8111fe7efb0b407a3acc2a3a2eb616170906d /lisp/cus-edit.el | |
| parent | 4f2f32146a3365fead29d93a4d5a6e41cec9956e (diff) | |
| download | emacs-2d656942f6430b5135c5c01814d4ee73ad3bece6.tar.gz | |
* cus-edit.el (custom-save-variables): Allow unthemed values.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 3d06bd0fcae..77335615bfe 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4166,7 +4166,9 @@ This function does not save the buffer." (mapatoms (lambda (symbol) (if (and (get symbol 'saved-value) - (eq 'user (car (car-safe (get symbol 'theme-value))))) + ;; ignore theme values + (or (null (get symbol 'theme-value)) + (eq 'user (caar (get symbol 'theme-value))))) (nconc saved-list (list symbol))))) (setq saved-list (sort (cdr saved-list) 'string<)) (unless (bolp) |