# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872468989 0
# Node ID 6591f294b265067b1c430211077f7fae8a5676fe
# Parent  a0ecbe13b54b6c54fdf96e2d4768f4571e306fbe
(custom-declare-variable): Rename 2nd arg to DEFAULT.

diff -r a0ecbe13b54b -r 6591f294b265 lisp/custom.el
--- a/lisp/custom.el	Sun Aug 24 21:38:12 1997 +0000
+++ b/lisp/custom.el	Mon Aug 25 00:29:49 1997 +0000
@@ -102,10 +102,12 @@
 	(t
 	 (set-default symbol (eval value)))))
 
-(defun custom-declare-variable (symbol value doc &rest args)
-  "Like `defcustom', but SYMBOL and VALUE are evaluated as normal arguments."
+(defun custom-declare-variable (symbol default doc &rest args)
+  "Like `defcustom', but SYMBOL and DEFAULT are evaluated as normal arguments.
+DEFAULT should be an expression to evaluate to compute the default value,
+not the default value itself."
   ;; Remember the standard setting.
-  (put symbol 'standard-value (list value))
+  (put symbol 'standard-value (list default))
   ;; Maybe this option was rogue in an earlier version.  It no longer is.
   (when (get symbol 'force-value)
     ;; It no longer is.    
@@ -147,7 +149,7 @@
 					'custom-variable))))))
     (put symbol 'custom-requests requests)
     ;; Do the actual initialization.
-    (funcall initialize symbol value))
+    (funcall initialize symbol default))
   (run-hooks 'custom-define-hook)
   symbol)