Mercurial > emacs
changeset 19535:e9d8fcec9843
(custom-declare-variable): Use custom-initialize-reset
by default, rather than custom-initialize-set.
(custom-initialize-reset, custom-initialize-set): Doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 26 Aug 1997 03:45:21 +0000 |
| parents | f2fe77b50fb1 |
| children | e0cd56c5b0ac |
| files | lisp/custom.el |
| diffstat | 1 files changed, 14 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Tue Aug 26 03:34:50 1997 +0000 +++ b/lisp/custom.el Tue Aug 26 03:45:21 1997 +0000 @@ -62,9 +62,11 @@ (eval value))))) (defun custom-initialize-set (symbol value) - "Initialize SYMBOL with VALUE. -Like `custom-initialize-default', but use the function specified by -`:set' to initialize SYMBOL." + "Initialize SYMBOL based on VALUE. +If the symbol doesn't have a default binding already, +then set it using its `:set' function (or `set-default' if it has none). +The value is either the value in the symbol's `saved-value' property, +if any, or VALUE." (unless (default-boundp symbol) (funcall (or (get symbol 'custom-set) 'set-default) symbol @@ -73,9 +75,12 @@ (eval value))))) (defun custom-initialize-reset (symbol value) - "Initialize SYMBOL with VALUE. -Like `custom-initialize-set', but use the function specified by -`:get' to reinitialize SYMBOL if it is already bound." + "Initialize SYMBOL based on VALUE. +Set the symbol, using its `:set' function (or `set-default' if it has none). +The value is either the symbol's current value + \(as obtained using the `:get' function), if any, +or the value in the symbol's `saved-value' property if any, +or (last of all) VALUE." (funcall (or (get symbol 'custom-set) 'set-default) symbol (cond ((default-boundp symbol) @@ -89,7 +94,8 @@ (defun custom-initialize-changed (symbol value) "Initialize SYMBOL with VALUE. Like `custom-initialize-reset', but only use the `:set' function if the -not using the standard setting. Otherwise, use the `set-default'." +not using the standard setting. +For the standard setting, use the `set-default'." (cond ((default-boundp symbol) (funcall (or (get symbol 'custom-set) 'set-default) symbol @@ -114,7 +120,7 @@ (put symbol 'force-value nil)) (when doc (put symbol 'variable-documentation doc)) - (let ((initialize 'custom-initialize-set) + (let ((initialize 'custom-initialize-reset) (requests nil)) (while args (let ((arg (car args)))