# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 947176623 0
# Node ID 44dc06740e6c8b4a61fe22a1ec6a8e993b6b2a73
# Parent  ee242fddb1abc45478a0f0605aa321f90f93d2be
(Fuser_variable_p): Check customizability too.

diff -r ee242fddb1ab -r 44dc06740e6c src/eval.c
--- a/src/eval.c	Thu Jan 06 00:17:52 2000 +0000
+++ b/src/eval.c	Thu Jan 06 16:37:03 2000 +0000
@@ -680,7 +680,9 @@
   "Returns t if VARIABLE is intended to be set and modified by users.\n\
 \(The alternative is a variable used internally in a Lisp program.)\n\
 Determined by whether the first character of the documentation\n\
-for the variable is `*'.")
+for the variable is `*' or if the variable is customizable (has a non-nil\n\
+value of any of `custom-type', `custom-loads' or `standard-value'\n\
+on its property list).")
   (variable)
      Lisp_Object variable;
 {
@@ -701,6 +703,11 @@
       && 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")))))
+    return Qt;
   return Qnil;
 }  
 
@@ -2128,7 +2135,7 @@
   /* If we are dying or still initializing,
      don't do anything--it would probably crash if we tried.  */
   if (NILP (Vrun_hooks))
-    return;
+    return Qnil;
 
   sym = args[0];
   val = find_symbol_value (sym);