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

(check_syntax_table): Use CHECK_TYPE.

parent ca29b416
......@@ -749,9 +749,8 @@ static void
check_syntax_table (obj)
Lisp_Object obj;
if (!(CHAR_TABLE_P (obj)
&& EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table)))
wrong_type_argument (Qsyntax_table_p, obj);
CHECK_TYPE (CHAR_TABLE_P (obj) && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table),
Qsyntax_table_p, obj);
DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0,
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