mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2009-09-15 04:08:02 +00:00
parent 13dc2bc2e8
commit b3c7c12d65
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
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.

12
lisp/custom.el
View File

@ -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.