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

(check_category_table): Use CHECK_TYPE.
---

diff --git a/src/category.c b/src/category.c
index 929cd7ea1c0..6835d00d824 100644
--- a/src/category.c
+++ b/src/category.c
@@ -164,11 +164,9 @@ Lisp_Object
 check_category_table (table)
      Lisp_Object table;
 {
-  register Lisp_Object tem;
   if (NILP (table))
     return current_buffer->category_table;
-  while (tem = Fcategory_table_p (table), NILP (tem))
-    table = wrong_type_argument (Qcategory_table_p, table);
+  CHECK_TYPE (!NILP (Fcategory_table_p (table)), Qcategory_table_p, table);
   return table;
 }