Mercurial > emacs
changeset 71843:2d05f598fa85
(check_syntax_table): Use CHECK_TYPE.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 12 Jul 2006 13:21:51 +0000 |
| parents | 9214bbc95872 |
| children | 632e73258d36 |
| files | src/syntax.c |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Wed Jul 12 13:21:39 2006 +0000 +++ b/src/syntax.c Wed Jul 12 13:21:51 2006 +0000 @@ -749,9 +749,8 @@ 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,