From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:21:51 +0000 (+0000)
Subject: (check_syntax_table): Use CHECK_TYPE.
X-Git-Tag: emacs-pretest-22.0.90~1495
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47f5f6ae553af87d5d1975ae5848b98ebd422de3;p=emacs.git

(check_syntax_table): Use CHECK_TYPE.
---

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,