* 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:
@@ -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. */
|
||||
|
||||
Reference in New Issue
Block a user