# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859932298 0
# Node ID 03f89f7e614e23bc57a88b5930bd89e7e4f10b87
# Parent  c8228f461dda35a503e9b3531ff1a1d8f7c00cb5
(Fuser_variable_p): If not a symbol, return nil.

diff -r c8228f461dda -r 03f89f7e614e src/eval.c
--- a/src/eval.c	Tue Apr 01 21:47:17 1997 +0000
+++ b/src/eval.c	Tue Apr 01 22:04:58 1997 +0000
@@ -658,6 +658,9 @@
 {
   Lisp_Object documentation;
   
+  if (!SYMBOLP (variable))
+      return Qnil;
+
   documentation = Fget (variable, Qvariable_documentation);
   if (INTEGERP (documentation) && XINT (documentation) < 0)
     return Qt;