Mercurial > emacs
changeset 19516:6591f294b265
(custom-declare-variable): Rename 2nd arg to DEFAULT.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 25 Aug 1997 00:29:49 +0000 |
| parents | a0ecbe13b54b |
| children | a8d0c3ae93ce |
| files | lisp/custom.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)