diff options
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/syntax.c b/src/syntax.c index 1aba174f7bb..14187b1d8cd 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -111,7 +111,7 @@ Any vector of 256 elements will do.") | |||
| 111 | (obj) | 111 | (obj) |
| 112 | Lisp_Object obj; | 112 | Lisp_Object obj; |
| 113 | { | 113 | { |
| 114 | if (XTYPE (obj) == Lisp_Vector && XVECTOR (obj)->size == 0400) | 114 | if (VECTORP (obj) && XVECTOR (obj)->size == 0400) |
| 115 | return Qt; | 115 | return Qt; |
| 116 | return Qnil; | 116 | return Qnil; |
| 117 | } | 117 | } |
| @@ -355,7 +355,7 @@ describe_syntax (value) | |||
| 355 | 355 | ||
| 356 | Findent_to (make_number (16), make_number (1)); | 356 | Findent_to (make_number (16), make_number (1)); |
| 357 | 357 | ||
| 358 | if (XTYPE (value) != Lisp_Int) | 358 | if (!INTEGERP (value)) |
| 359 | { | 359 | { |
| 360 | insert_string ("invalid"); | 360 | insert_string ("invalid"); |
| 361 | return; | 361 | return; |