diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-02-22 14:48:45 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-02-22 14:48:45 +0000 |
| commit | 689b265aef341e53c30c5193fa953ec6c4de4f9c (patch) | |
| tree | c60033f91b8c559fec88fe33f583056adc5ac257 /src | |
| parent | d8a432076e8583dd94924511511b8ffb744c478a (diff) | |
| download | emacs-689b265aef341e53c30c5193fa953ec6c4de4f9c.tar.gz | |
* 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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 2 | ||||
| -rw-r--r-- | src/casefiddle.c | 2 | ||||
| -rw-r--r-- | src/casetab.c | 2 | ||||
| -rw-r--r-- | src/search.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/src/callint.c b/src/callint.c index ffa2fa39539..d688f0e2b1c 100644 --- a/src/callint.c +++ b/src/callint.c @@ -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) diff --git a/src/casefiddle.c b/src/casefiddle.c index 6682bc17fe7..d496ffdf6dd 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c @@ -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); } } diff --git a/src/casetab.c b/src/casetab.c index 3ea81e36bf1..7ad648c194c 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -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); } diff --git a/src/search.c b/src/search.c index 158ece9bf53..c837dbee071 100644 --- a/src/search.c +++ b/src/search.c @@ -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. */ |