diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:20:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:20:25 +0000 |
| commit | eccee1308a1043eef0753c1c7acd484f50fc12c0 (patch) | |
| tree | ef9d80eb57205c42865e390a9b66b0ed7af9caaa /src/syntax.c | |
| parent | eb095e41f90eb9acb2479cd6d09b2f173f5fc128 (diff) | |
| download | emacs-eccee1308a1043eef0753c1c7acd484f50fc12c0.tar.gz | |
(Fsyntax_table_p, describe_syntax): Use type test macros.
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.") (obj) Lisp_Object obj; { - if (XTYPE (obj) == Lisp_Vector && XVECTOR (obj)->size == 0400) + if (VECTORP (obj) && XVECTOR (obj)->size == 0400) return Qt; return Qnil; } @@ -355,7 +355,7 @@ describe_syntax (value) Findent_to (make_number (16), make_number (1)); - if (XTYPE (value) != Lisp_Int) + if (!INTEGERP (value)) { insert_string ("invalid"); return; |