Commit 88674269 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(check_category_table): Use CHECK_TYPE.

parent a5f07f6d
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment