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:
parent
6be429b169
commit
b37902c85c
4 changed files with 4 additions and 4 deletions
|
|
@ -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. */
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue