diff options
| author | Kim F. Storm | 2006-07-12 13:21:51 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-07-12 13:21:51 +0000 |
| commit | 47f5f6ae553af87d5d1975ae5848b98ebd422de3 (patch) | |
| tree | ade6b663c9ecd9fb3e8c4a92bdcd171f06996210 /src/syntax.c | |
| parent | ca29b4169d9a0087ae5b90f80f4806c5e90c4bd5 (diff) | |
| download | emacs-47f5f6ae553af87d5d1975ae5848b98ebd422de3.tar.gz emacs-47f5f6ae553af87d5d1975ae5848b98ebd422de3.zip | |
(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 fe458644caa..4f1bbb2d6b4 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -749,9 +749,8 @@ static void | |||
| 749 | check_syntax_table (obj) | 749 | check_syntax_table (obj) |
| 750 | Lisp_Object obj; | 750 | Lisp_Object obj; |
| 751 | { | 751 | { |
| 752 | if (!(CHAR_TABLE_P (obj) | 752 | CHECK_TYPE (CHAR_TABLE_P (obj) && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table), |
| 753 | && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table))) | 753 | Qsyntax_table_p, obj); |
| 754 | wrong_type_argument (Qsyntax_table_p, obj); | ||
| 755 | } | 754 | } |
| 756 | 755 | ||
| 757 | DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, | 756 | DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, |