Mercurial > emacs
changeset 1926:952f2a18f83d
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 22 Feb 1993 14:48:45 +0000 |
| parents | 3ddb163a9201 |
| children | c6dc1a37aeb4 |
| files | src/callint.c src/casefiddle.c src/casetab.c src/search.c |
| diffstat | 4 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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); } }
--- 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); }
--- 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. */