From 5e78e475d439f8f8e7d54db8821ae050a707c799 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Apr 1997 22:04:58 +0000 Subject: [PATCH] (Fuser_variable_p): If not a symbol, return nil. --- src/eval.c | 3 +++ 1 file changed, 3 insertions(+) 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; -- 2.39.2