From 225513e8ce1c3d593197a599a53cdfc1b0afef1e Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Tue, 7 Jan 2003 19:33:57 +0000 Subject: [PATCH] (Fuser_variable_p): Doc change. For custom variables, use the same test as for custom-variable-p. --- src/eval.c | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/eval.c b/src/eval.c index 1bb7cb809f9..5cd50271292 100644 --- a/src/eval.c +++ b/src/eval.c @@ -830,8 +830,7 @@ DEFUN ("user-variable-p", Fuser_variable_p, Suser_variable_p, 1, 1, 0, \(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 @@ on its property list). */) && 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; } -- 2.39.2