From: Dave Love <fx@gnu.org>
Date: Thu, 6 Jan 2000 16:37:03 +0000 (+0000)
Subject: (Fuser_variable_p): Check customizability too.
X-Git-Tag: emacs-pretest-21.0.90~5433
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=caff32a7cbc91aba9422df5158627eca005543df;p=emacs.git

(Fuser_variable_p): Check customizability too.
---

diff --git a/src/eval.c b/src/eval.c
index 1ae15218fd9..f9ca9ecfeb9 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -680,7 +680,9 @@ DEFUN ("user-variable-p", Fuser_variable_p, Suser_variable_p, 1, 1, 0,
   "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 @@ for the variable is `*'.")
       && 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 @@ run_hook_with_args (nargs, args, cond)
   /* 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);