From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 1 Apr 1997 22:04:58 +0000 (+0000)
Subject: (Fuser_variable_p): If not a symbol, return nil.
X-Git-Tag: emacs-20.1~2670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e78e475d439f8f8e7d54db8821ae050a707c799;p=emacs.git

(Fuser_variable_p): If not a symbol, return nil.
---

diff --git a/src/eval.c b/src/eval.c
index 139f3f3abf1..eb08972bc67 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -658,6 +658,9 @@ for the variable is `*'.")
 {
   Lisp_Object documentation;
   
+  if (!SYMBOLP (variable))
+      return Qnil;
+
   documentation = Fget (variable, Qvariable_documentation);
   if (INTEGERP (documentation) && XINT (documentation) < 0)
     return Qt;