# HG changeset patch # User Jim Blandy # Date 730392525 0 # Node ID 952f2a18f83d95f170da89717ad2cb04d7ff0891 # Parent 3ddb163a920100231c68e71edb2c49de7a5e307c * 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. diff -r 3ddb163a9201 -r 952f2a18f83d src/callint.c --- a/src/callint.c Mon Feb 22 14:47:53 1993 +0000 +++ b/src/callint.c Mon Feb 22 14:48:45 1993 +0000 @@ -210,7 +210,7 @@ if (!string) { lose: - function = wrong_type_argument (Qcommandp, function, 0); + function = wrong_type_argument (Qcommandp, function); goto retry; } if ((int) string == 1) diff -r 3ddb163a9201 -r 952f2a18f83d src/casefiddle.c --- a/src/casefiddle.c Mon Feb 22 14:47:53 1993 +0000 +++ b/src/casefiddle.c Mon Feb 22 14:48:45 1993 +0000 @@ -65,7 +65,7 @@ } return obj; } - obj = wrong_type_argument (Qchar_or_string_p, obj, 0); + obj = wrong_type_argument (Qchar_or_string_p, obj); } } diff -r 3ddb163a9201 -r 952f2a18f83d src/casetab.c --- a/src/casetab.c Mon Feb 22 14:47:53 1993 +0000 +++ b/src/casetab.c Mon Feb 22 14:48:45 1993 +0000 @@ -58,7 +58,7 @@ 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); } diff -r 3ddb163a9201 -r 952f2a18f83d src/search.c --- a/src/search.c Mon Feb 22 14:47:53 1993 +0000 +++ b/src/search.c Mon Feb 22 14:48:45 1993 +0000 @@ -1359,7 +1359,7 @@ 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. */