1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 06:50:46 -08:00

* 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.
This commit is contained in:
Jim Blandy 1993-02-22 14:48:45 +00:00
parent 6be429b169
commit b37902c85c
4 changed files with 4 additions and 4 deletions

View file

@ -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)

View file

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

View file

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

View file

@ -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. */