# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872567121 0
# Node ID e9d8fcec984318850636e126225a0c5e47df70cf
# Parent  f2fe77b50fb1b70fd359fe762a2fff17a588b876
(custom-declare-variable): Use custom-initialize-reset
by default, rather than custom-initialize-set.
(custom-initialize-reset, custom-initialize-set): Doc fixes.

diff -r f2fe77b50fb1 -r e9d8fcec9843 lisp/custom.el
--- 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)))