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

This commit is contained in:
Richard M. Stallman 1997-04-01 22:04:58 +00:00
parent f0b188ed3d
commit 5e78e475d4

View file

@ -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;