From 2d656942f6430b5135c5c01814d4ee73ad3bece6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 19 Feb 2006 15:50:09 +0000 Subject: [PATCH] * cus-edit.el (custom-save-variables): Allow unthemed values. --- lisp/ChangeLog | 4 ++++ lisp/cus-edit.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 180315ce9ea..aea866a4bf6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-02-19 Chong Yidong + + * cus-edit.el (custom-save-variables): Allow unthemed values. + 2006-02-19 Nick Roberts * progmodes/gud.el: Don't require font-lock as it's now 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) -- 2.39.2