/* GNU Emacs routines to deal with category tables.
- Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc.
- Copyright (C) 1995, 1997, 1998, 1999
+ Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007
+ Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+ 2005, 2006, 2007
National Institute of Advanced Industrial Science and Technology (AIST)
Registration Number H14PRO021
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;
}
\f
DEFUN ("char-category-set", Fchar_category_set, Schar_category_set, 1, 1, 0,
- doc: /* Return the category set of CHAR. */)
+ doc: /* Return the category set of CHAR.
+usage: (char-category-set CHAR) */)
(ch)
Lisp_Object ch;
{