Mercurial > emacs
comparison src/syntax.c @ 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 | 7e302766894f |
| children | c8c21ddb276e |
comparison
equal
deleted
inserted
replaced
| 71842:9214bbc95872 | 71843:2d05f598fa85 |
|---|---|
| 747 | 747 |
| 748 static void | 748 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, |
| 758 doc: /* Return the current syntax table. | 757 doc: /* Return the current syntax table. |
| 759 This is the one specified by the current buffer. */) | 758 This is the one specified by the current buffer. */) |