Mercurial > emacs

changeset 71829:8adcaaf366b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(check_category_table): Use CHECK_TYPE.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:15:18 +0000
parents 10b94d33e0d8
children d1cea7530d3d
files src/category.c
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/category.c	Wed Jul 12 13:15:03 2006 +0000
+++ b/src/category.c	Wed Jul 12 13:15:18 2006 +0000
@@ -164,11 +164,9 @@
 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;
 }