changeset 17275:03f89f7e614e

(Fuser_variable_p): If not a symbol, return nil.
author Richard M. Stallman <rms@gnu.org>
date Tue, 01 Apr 1997 22:04:58 +0000
parents c8228f461dda
children fc3829279a06
files src/eval.c
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;