* 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.

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.  */