# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1041968037 0
# Node ID 9cd789fbff754620eb2152e59045f58983b0f5b5
# Parent  b74a6560ecbbe6ea4132324faec632c48dc4fe23
(Fuser_variable_p): Doc change.  For custom variables,
use the same test as for custom-variable-p.

diff -r b74a6560ecbb -r 9cd789fbff75 src/eval.c
--- 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;
 }