Commit b37902c8 authored by Jim Blandy's avatar Jim Blandy

* callint.c (Fcall_interactively): Pass the correct number of

	arguments to wrong_type_argument.
	* casefiddle.c (caseify_object): Same.
	* casetab.c (check_case_table): Same.
	* search.c (Fstore_match_data): Same.
	* syntax.c (check_syntax_table): Same.
parent 6be429b1
......@@ -210,7 +210,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
if (!string)
{
lose:
function = wrong_type_argument (Qcommandp, function, 0);
function = wrong_type_argument (Qcommandp, function);
goto retry;
}
if ((int) string == 1)
......
......@@ -65,7 +65,7 @@ casify_object (flag, obj)
}
return obj;
}
obj = wrong_type_argument (Qchar_or_string_p, obj, 0);
obj = wrong_type_argument (Qchar_or_string_p, obj);
}
}
......
......@@ -58,7 +58,7 @@ check_case_table (obj)
register Lisp_Object tem;
while (tem = Fcase_table_p (obj), NILP (tem))
obj = wrong_type_argument (Qcase_table_p, obj, 0);
obj = wrong_type_argument (Qcase_table_p, obj);
return (obj);
}
......
......@@ -1359,7 +1359,7 @@ LIST should have been created by calling `match-data' previously.")
register Lisp_Object marker;
if (!CONSP (list) && !NILP (list))
list = wrong_type_argument (Qconsp, list, 0);
list = wrong_type_argument (Qconsp, list);
/* Unless we find a marker with a buffer in LIST, assume that this
match data came from a string. */
......
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