# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797239039 0
# Node ID f6bc91242185d267844d9647eab34dee3e1f5246
# Parent  9ccb4577abd667659c9c207c26c0fca352995626
(Fuser_variable_p): For (STRING . INTEGER), test sign.

diff -r 9ccb4577abd6 -r f6bc91242185 src/eval.c
--- a/src/eval.c	Fri Apr 07 06:54:50 1995 +0000
+++ b/src/eval.c	Fri Apr 07 07:17:19 1995 +0000
@@ -635,7 +635,7 @@
   "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 `*'.")
   (variable)
      Lisp_Object variable;
 {
@@ -644,8 +644,14 @@
   documentation = Fget (variable, Qvariable_documentation);
   if (INTEGERP (documentation) && XINT (documentation) < 0)
     return Qt;
-  if ((STRINGP (documentation)) &&
-      ((unsigned char) XSTRING (documentation)->data[0] == '*'))
+  if (STRINGP (documentation)
+      && ((unsigned char) XSTRING (documentation)->data[0] == '*'))
+    return Qt;
+  /* If it is (STRING . INTEGER), a negative integer means a user variable.  */
+  if (CONSP (documentation)
+      && STRINGP (XCONS (documentation)->car)
+      && INTEGERP (XCONS (documentation)->cdr)
+      && XINT (XCONS (documentation)->cdr) < 0)
     return Qt;
   return Qnil;
 }