diff options
| author | Kim F. Storm <[email protected]> | 2006-07-12 13:21:51 +0000 |
|---|---|---|
| committer | Kim F. Storm <[email protected]> | 2006-07-12 13:21:51 +0000 |
| commit | 47f5f6ae553af87d5d1975ae5848b98ebd422de3 (patch) | |
| tree | ade6b663c9ecd9fb3e8c4a92bdcd171f06996210 /src/syntax.c | |
| parent | ca29b4169d9a0087ae5b90f80f4806c5e90c4bd5 (diff) | |
(check_syntax_table): Use CHECK_TYPE.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/syntax.c b/src/syntax.c index fe458644ca..4f1bbb2d6b 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -749,9 +749,8 @@ static void check_syntax_table (obj) Lisp_Object obj; { - if (!(CHAR_TABLE_P (obj) - && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table))) - wrong_type_argument (Qsyntax_table_p, obj); + CHECK_TYPE (CHAR_TABLE_P (obj) && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table), + Qsyntax_table_p, obj); } DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, |