From 886742699bbd96ed2b93e764aec84f2dcb0f441b Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 12 Jul 2006 13:15:18 +0000 Subject: [PATCH] (check_category_table): Use CHECK_TYPE. --- src/category.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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; } -- 2.39.2