Commit b3c7c12d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(custom-initialize-default, custom-initialize-set): CSE.

parent 13dc2bc2
2009-09-15 Stefan Monnier <monnier@iro.umontreal.ca>
* custom.el (custom-initialize-default, custom-initialize-set): CSE.
* desktop.el (desktop-path): Check user-emacs-directory.
* emacs-lisp/bytecomp.el (byte-compile-refresh-preloaded): New function.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment