From 47f5f6ae553af87d5d1975ae5848b98ebd422de3 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 12 Jul 2006 13:21:51 +0000 Subject: [PATCH] (check_syntax_table): Use CHECK_TYPE. --- src/syntax.c | 5 ++--- 1 file 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 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, -- 2.39.2