[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/custom.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/custom.el |
Date: |
Sun, 19 Feb 2006 17:26:44 +0000 |
Index: emacs/lisp/custom.el
diff -u emacs/lisp/custom.el:1.120 emacs/lisp/custom.el:1.121
--- emacs/lisp/custom.el:1.120 Sun Feb 19 16:20:21 2006
+++ emacs/lisp/custom.el Sun Feb 19 17:26:44 2006
@@ -653,7 +653,6 @@
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 @@
(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)))))