diff options
| author | Richard M. Stallman | 1997-04-01 22:04:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-01 22:04:58 +0000 |
| commit | 5e78e475d439f8f8e7d54db8821ae050a707c799 (patch) | |
| tree | 56d059311d06c693b34c1ad67d295a1250584c32 /src/eval.c | |
| parent | f0b188ed3d5e64498f3cc78cf928a88fc7a5a1e4 (diff) | |
| download | emacs-5e78e475d439f8f8e7d54db8821ae050a707c799.tar.gz emacs-5e78e475d439f8f8e7d54db8821ae050a707c799.zip | |
(Fuser_variable_p): If not a symbol, return nil.
Diffstat (limited to 'src/eval.c')
| -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; |