[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-fu
From: |
Ignacio Casso |
Subject: |
bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)) |
Date: |
Thu, 12 May 2022 08:58:09 +0200 |
User-agent: |
mu4e 1.6.10; emacs 29.0.50 |
>> I've also made some new changes in customize.texi after I sent this
>> patch. They are equivalent to those in the docstring of
>> `defcustom'.
>
> I didn't see any new version of the proposed patch in this bug report?
Sorry, I was waiting for more feedback in other parts of the patch
before sending it. I send a new version now with the typos you pointed
out fixed, and the changes in customize.texi that I said. I've also
dropped some of the changes in the previous path that I don't think that
were actually necessary, to keep the patch and review simpler.
--Ignacio
>From 9ebf1065c2970f688fdcafd6278ae5e239265065 Mon Sep 17 00:00:00 2001
From: Ignacio Casso <ignaciocasso@hotmail.com>
Date: Thu, 12 May 2022 08:41:44 +0200
Subject: [PATCH] updated some documentation regarding customize and default
values
---
doc/lispref/customize.texi | 8 ++++----
lisp/custom.el | 18 +++++++++---------
src/data.c | 4 ++--
3 files changed, 15 insertions(+), 15 deletions(-)
diff --git a/doc/lispref/customize.texi b/doc/lispref/customize.texi
index 54059d7b6e..06a2f5365d 100644
--- a/doc/lispref/customize.texi
+++ b/doc/lispref/customize.texi
@@ -376,7 +376,7 @@ Variable Definitions
the value properly for this option (which may not mean simply setting
the option as a Lisp variable); preferably, though, it should not
modify its value argument destructively. The default for
-@var{setfunction} is @code{set-default}.
+@var{setfunction} is @code{set-default-toplevel-value}.
If you specify this keyword, the variable's documentation string
should describe how to do the same job in hand-written Lisp code.
@@ -387,7 +387,7 @@ Variable Definitions
option. The function @var{getfunction} should take one argument, a
symbol, and should return whatever customize should use as the
current value for that symbol (which need not be the symbol's Lisp
-value). The default is @code{default-value}.
+value). The default is @code{default-toplevel-value}.
You have to really understand the workings of Custom to use
@code{:get} correctly. It is meant for values that are treated in
@@ -409,7 +409,7 @@ Variable Definitions
@item custom-initialize-default
Like @code{custom-initialize-set}, but use the function
-@code{set-default} to set the variable, instead of the variable's
+@code{set-default-toplevel-value} to set the variable, instead of the
variable's
@code{:set} function. This is the usual choice for a variable whose
@code{:set} function enables or disables a minor mode; with this choice,
defining the variable will not call the minor mode function, but
@@ -424,7 +424,7 @@ Variable Definitions
@item custom-initialize-changed
Use the @code{:set} function to initialize the variable, if it is
already set or has been customized; otherwise, just use
-@code{set-default}.
+@code{set-default-toplevel-value}.
@item custom-initialize-delay
This function behaves like @code{custom-initialize-set}, but it
diff --git a/lisp/custom.el b/lisp/custom.el
index 76c14831ca..2ab7c69d00 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -68,7 +68,7 @@ custom-initialize-default
(defun custom-initialize-set (symbol exp)
"Initialize SYMBOL based on EXP.
If the symbol doesn't have a default binding already,
-then set it using its `:set' function (or `set-default' if it has none).
+then set it using its `:set' function (or `set-default-toplevel-value' if it
has none).
The value is either the value in the symbol's `saved-value' property,
if any, or the value of EXP."
(condition-case nil
@@ -81,7 +81,7 @@ custom-initialize-set
(defun custom-initialize-reset (symbol exp)
"Initialize SYMBOL based on EXP.
-Set the symbol, using its `:set' function (or `set-default' if it has none).
+Set the symbol, using its `:set' function (or `set-default-toplevel-value' 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,
@@ -100,7 +100,7 @@ custom-initialize-changed
"Initialize SYMBOL with EXP.
Like `custom-initialize-reset', but only use the `:set' function if
not using the standard setting.
-For the standard setting, use `set-default'."
+For the standard setting, use `set-default-toplevel-value'."
(condition-case nil
(let ((def (default-toplevel-value symbol)))
(funcall (or (get symbol 'custom-set) #'set-default-toplevel-value)
@@ -114,7 +114,7 @@ custom-initialize-changed
symbol
(eval (car (get symbol 'saved-value)))))
(t
- (set-default symbol (eval exp)))))))
+ (set-default-toplevel-value symbol (eval exp)))))))
(defvar custom-delayed-init-variables nil
"List of variables whose initialization is pending until startup.
@@ -262,11 +262,11 @@ defcustom
when using the Customize user interface. It takes two arguments,
the symbol to set and the value to give it. The function should
not modify its value argument destructively. The default choice
- of function is `set-default'.
+ of function is `set-default-toplevel-value'.
:get VALUE should be a function to extract the value of symbol.
The function takes one argument, a symbol, and should return
the current value for that symbol. The default choice of function
- is `default-value'.
+ is `default-toplevel-value'.
:require
VALUE should be a feature symbol. If you save a value
for this option, then when your init file loads the value,
@@ -717,7 +717,7 @@ custom-set-default
(if custom-local-buffer
(with-current-buffer custom-local-buffer
(set variable value))
- (set-default variable value)))
+ (set-default-toplevel-value variable value)))
(defun custom-set-minor-mode (variable value)
":set function for minor mode variables.
@@ -752,7 +752,7 @@ customize-mark-to-save
Return non-nil if the `saved-value' property actually changed."
(custom-load-symbol symbol)
- (let* ((get (or (get symbol 'custom-get) #'default-value))
+ (let* ((get (or (get symbol 'custom-get) #'default-toplevel-value))
(value (funcall get symbol))
(saved (get symbol 'saved-value))
(standard (get symbol 'standard-value))
@@ -779,7 +779,7 @@ customize-mark-as-set
Return non-nil if the `customized-value' property actually changed."
(custom-load-symbol symbol)
- (let* ((get (or (get symbol 'custom-get) #'default-value))
+ (let* ((get (or (get symbol 'custom-get) #'default-toplevel-value))
(value (funcall get symbol))
(customized (get symbol 'customized-value))
(old (or (get symbol 'saved-value) (get symbol 'standard-value))))
diff --git a/src/data.c b/src/data.c
index 72dcf6f878..9b36ecc1b2 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1939,9 +1939,9 @@ default_value (Lisp_Object symbol)
DEFUN ("default-boundp", Fdefault_boundp, Sdefault_boundp, 1, 1, 0,
doc: /* Return t if SYMBOL has a non-void default value.
-A variable may have a buffer-local or a `let'-bound local value. This
+A variable may have a buffer-local value. This
function says whether the variable has a non-void value outside of the
-current context. Also see `default-value'. */)
+current buffer context. Also see `default-value'. */)
(Lisp_Object symbol)
{
register Lisp_Object value;
--
2.25.1
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Lars Ingebrigtsen, 2022/05/11
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)),
Ignacio Casso <=
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Eli Zaretskii, 2022/05/12
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Ignacio Casso, 2022/05/12
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Eli Zaretskii, 2022/05/12
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Ignacio Casso, 2022/05/12
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Eli Zaretskii, 2022/05/12
- bug#54399: 27.2; Problems with (let ((custom-variable ...)) (autoload-function ...)), Lars Ingebrigtsen, 2022/05/12