From 6541197790761f5abc955f0655ecd31cc42f66af Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Apr 1995 07:17:19 +0000 Subject: (Fuser_variable_p): For (STRING . INTEGER), test sign. --- src/eval.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/eval.c b/src/eval.c index a67bc3c1a1..eb90dbd131 100644 --- a/src/eval.c +++ b/src/eval.c @@ -635,7 +635,7 @@ DEFUN ("user-variable-p", Fuser_variable_p, Suser_variable_p, 1, 1, 0, "Returns t if VARIABLE is intended to be set and modified by users.\n\ \(The alternative is a variable used internally in a Lisp program.)\n\ Determined by whether the first character of the documentation\n\ -for the variable is \"*\"") +for the variable is `*'.") (variable) Lisp_Object variable; { @@ -644,8 +644,14 @@ for the variable is \"*\"") documentation = Fget (variable, Qvariable_documentation); if (INTEGERP (documentation) && XINT (documentation) < 0) return Qt; - if ((STRINGP (documentation)) && - ((unsigned char) XSTRING (documentation)->data[0] == '*')) + if (STRINGP (documentation) + && ((unsigned char) XSTRING (documentation)->data[0] == '*')) + return Qt; + /* If it is (STRING . INTEGER), a negative integer means a user variable. */ + if (CONSP (documentation) + && STRINGP (XCONS (documentation)->car) + && INTEGERP (XCONS (documentation)->cdr) + && XINT (XCONS (documentation)->cdr) < 0) return Qt; return Qnil; } -- cgit v1.2.3