mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

(check_category_table): Use CHECK_TYPE.

Browse source
This commit is contained in:
Kim F. Storm 2006-07-12 13:15:18 +00:00
parent a5f07f6d92
commit 886742699b
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/category.c
View file

@ -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;
}