diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 3 insertions, 0 deletions
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 `*'.") | |||
| 658 | { | 658 | { |
| 659 | Lisp_Object documentation; | 659 | Lisp_Object documentation; |
| 660 | 660 | ||
| 661 | if (!SYMBOLP (variable)) | ||
| 662 | return Qnil; | ||
| 663 | |||
| 661 | documentation = Fget (variable, Qvariable_documentation); | 664 | documentation = Fget (variable, Qvariable_documentation); |
| 662 | if (INTEGERP (documentation) && XINT (documentation) < 0) | 665 | if (INTEGERP (documentation) && XINT (documentation) < 0) |
| 663 | return Qt; | 666 | return Qt; |