diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-15 04:08:02 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-15 04:08:02 +0000 |
| commit | b3c7c12d65aa8e806975b73ef4673f52d7883429 (patch) | |
| tree | 73944a50da8ee075af0082a72840224cc8224542 /lisp/custom.el | |
| parent | 13dc2bc2e89d4a7e2edbabd2f4cf33e77bcf8b74 (diff) | |
| download | emacs-b3c7c12d65aa8e806975b73ef4673f52d7883429.tar.gz | |
(custom-initialize-default, custom-initialize-set): CSE.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index f55cd47afc0..e3d3d9a63a0 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -57,9 +57,9 @@ Otherwise, VALUE will be evaluated and used as the default binding for symbol." (unless (default-boundp symbol) ;; Use the saved value if it exists, otherwise the standard setting. - (set-default symbol (if (get symbol 'saved-value) - (eval (car (get symbol 'saved-value))) - (eval value))))) + (set-default symbol (eval (if (get symbol 'saved-value) + (car (get symbol 'saved-value)) + value))))) (defun custom-initialize-set (symbol value) "Initialize SYMBOL based on VALUE. @@ -70,9 +70,9 @@ if any, or VALUE." (unless (default-boundp symbol) (funcall (or (get symbol 'custom-set) 'set-default) symbol - (if (get symbol 'saved-value) - (eval (car (get symbol 'saved-value))) - (eval value))))) + (eval (if (get symbol 'saved-value) + (car (get symbol 'saved-value)) + value))))) (defun custom-initialize-reset (symbol value) "Initialize SYMBOL based on VALUE. |