Mercurial > emacs
changeset 49105:9cd789fbff75
(Fuser_variable_p): Doc change. For custom variables,
use the same test as for custom-variable-p.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Tue, 07 Jan 2003 19:33:57 +0000 |
| parents | b74a6560ecbb |
| children | f9342d2eaa31 |
| files | src/eval.c |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Tue Jan 07 19:29:25 2003 +0000 +++ b/src/eval.c Tue Jan 07 19:33:57 2003 +0000 @@ -830,8 +830,7 @@ \(The alternative is a variable used internally in a Lisp program.) Determined by whether the first character of the documentation for the variable is `*' or if the variable is customizable (has a non-nil -value of any of `custom-type', `custom-loads' or `standard-value' -on its property list). */) +value of `standard-value' or of `custom-autoload' on its property list). */) (variable) Lisp_Object variable; { @@ -852,10 +851,9 @@ && INTEGERP (XCDR (documentation)) && XINT (XCDR (documentation)) < 0) return Qt; - /* Customizable? */ - if ((!NILP (Fget (variable, intern ("custom-type")))) - || (!NILP (Fget (variable, intern ("custom-loads")))) - || (!NILP (Fget (variable, intern ("standard-value"))))) + /* Customizable? See `custom-variable-p'. */ + if ((!NILP (Fget (variable, intern ("standard-value")))) + || (!NILP (Fget (variable, intern ("custom-autoload"))))) return Qt; return Qnil; }