diff src/minibuf.c @ 40656:cdfd4d09b79a

Update usage of CHECK_ macros (remove unused second argument).

--- a/src/minibuf.c	Fri Nov 02 20:14:02 2001 +0000
+++ b/src/minibuf.c	Fri Nov 02 20:46:55 2001 +0000
@@ -199,7 +199,7 @@
      (window)
      Lisp_Object window;
 {
-  CHECK_WINDOW (window, 1);
+  CHECK_WINDOW (window);
   if (! MINI_WINDOW_P (XWINDOW (window)))
     error ("Window is not a minibuffer window");
 
@@ -848,7 +848,7 @@
 
   position = Qnil;
 
-  CHECK_STRING (prompt, 0);
+  CHECK_STRING (prompt);
   if (!NILP (initial_contents))
     {
       if (CONSP (initial_contents))
@@ -856,10 +856,10 @@
 	  position = Fcdr (initial_contents);
 	  initial_contents = Fcar (initial_contents);
 	}
-      CHECK_STRING (initial_contents, 1);
+      CHECK_STRING (initial_contents);
       if (!NILP (position))
 	{
-	  CHECK_NUMBER (position, 0);
+	  CHECK_NUMBER (position);
 	  /* Convert to distance from end of input.  */
 	  if (XINT (position) < 1)
 	    /* A number too small means the beginning of the string.  */
@@ -906,9 +906,9 @@
      (prompt, initial_contents)
      Lisp_Object prompt, initial_contents;
 {
-  CHECK_STRING (prompt, 0);
+  CHECK_STRING (prompt);
   if (!NILP (initial_contents))
-    CHECK_STRING (initial_contents, 1);
+    CHECK_STRING (initial_contents);
   return read_minibuf (Vminibuffer_local_map, initial_contents,
 		       prompt, Qnil, 1, Qminibuffer_history,
 		       make_number (0), Qnil, 0, 0);
@@ -958,9 +958,9 @@
      (prompt, initial, inherit_input_method)
      Lisp_Object prompt, initial, inherit_input_method;
 {
-  CHECK_STRING (prompt, 0);
+  CHECK_STRING (prompt);
   if (! NILP (initial))
-    CHECK_STRING (initial, 1);
+    CHECK_STRING (initial);
 
   return read_minibuf (Vminibuffer_local_ns_map, initial, prompt, Qnil,
 		       0, Qminibuffer_history, make_number (0), Qnil, 0,
@@ -1111,7 +1111,7 @@
   Lisp_Object bucket, zero, end, tem;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
 
-  CHECK_STRING (string, 0);
+  CHECK_STRING (string);
   if (!list && !VECTORP (alist))
     return call3 (alist, string, predicate, Qnil);
 
@@ -1359,7 +1359,7 @@
   Lisp_Object bucket, tem;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
 
-  CHECK_STRING (string, 0);
+  CHECK_STRING (string);
   if (!list && !VECTORP (alist))
     {
       return call3 (alist, string, predicate, Qt);
@@ -1532,10 +1532,10 @@
 	  position = Fcdr (init);
 	  init = Fcar (init);
 	}
-      CHECK_STRING (init, 0);
+      CHECK_STRING (init);
       if (!NILP (position))
 	{
-	  CHECK_NUMBER (position, 0);
+	  CHECK_NUMBER (position);
 	  /* Convert to distance from end of input.  */
 	  pos = XINT (position) - XSTRING (init)->size;
 	}
@@ -1911,7 +1911,7 @@
   {
     int buffer_nchars, completion_nchars;
 
-    CHECK_STRING (completion, 0);
+    CHECK_STRING (completion);
     tem = Fminibuffer_contents ();
     GCPRO2 (completion, tem);
     /* If reading a file name,
@@ -2085,16 +2085,16 @@
 	  if (CONSP (elt))
 	    {
 	      tem = XCAR (elt);
-	      CHECK_STRING (tem, 0);
+	      CHECK_STRING (tem);
 	      length = XSTRING (tem)->size;
 
 	      tem = Fcar (XCDR (elt));
-	      CHECK_STRING (tem, 0);
+	      CHECK_STRING (tem);
 	      length += XSTRING (tem)->size;
 	    }
 	  else
 	    {
-	      CHECK_STRING (elt, 0);
+	      CHECK_STRING (elt);
 	      length = XSTRING (elt)->size;
 	    }