diff src/process.c @ 40656:cdfd4d09b79a

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

--- a/src/process.c	Fri Nov 02 20:14:02 2001 +0000
+++ b/src/process.c	Fri Nov 02 20:46:55 2001 +0000
@@ -493,7 +493,7 @@
 {
   if (PROCESSP (name))
     return name;
-  CHECK_STRING (name, 0);
+  CHECK_STRING (name);
   return Fcdr (Fassoc (name, Vprocess_alist));
 }
 
@@ -551,7 +551,7 @@
     }
   else
     {
-      CHECK_PROCESS (obj, 0);
+      CHECK_PROCESS (obj);
       proc = obj;
     }
   return proc;
@@ -634,7 +634,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   if (!NILP (XPROCESS (process)->raw_status_low))
     update_status (XPROCESS (process));
   if (CONSP (XPROCESS (process)->status))
@@ -649,7 +649,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->pid;
 }
 
@@ -660,7 +660,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->name;
 }
 
@@ -672,7 +672,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->command;
 }
 
@@ -683,7 +683,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->tty_name;
 }
 
@@ -693,9 +693,9 @@
      (process, buffer)
      register Lisp_Object process, buffer;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   if (!NILP (buffer))
-    CHECK_BUFFER (buffer, 1);
+    CHECK_BUFFER (buffer);
   XPROCESS (process)->buffer = buffer;
   return buffer;
 }
@@ -707,7 +707,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->buffer;
 }
 
@@ -717,7 +717,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->mark;
 }
 
@@ -734,7 +734,7 @@
 {
   struct Lisp_Process *p;
   
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   p = XPROCESS (process);
 
   /* Don't signal an error if the process' input file descriptor
@@ -770,7 +770,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->filter;
 }
 
@@ -782,7 +782,7 @@
      (process, sentinel)
      register Lisp_Object process, sentinel;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   XPROCESS (process)->sentinel = sentinel;
   return sentinel;
 }
@@ -794,7 +794,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->sentinel;
 }
 
@@ -804,9 +804,9 @@
      (process, height, width)
      register Lisp_Object process, height, width;
 {
-  CHECK_PROCESS (process, 0);
-  CHECK_NATNUM (height, 0);
-  CHECK_NATNUM (width, 0);
+  CHECK_PROCESS (process);
+  CHECK_NATNUM (height);
+  CHECK_NATNUM (width);
   
   if (XINT (XPROCESS (process)->infd) < 0
       || set_window_size (XINT (XPROCESS (process)->infd),
@@ -836,7 +836,7 @@
      (process, flag)
      register Lisp_Object process, flag;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   XPROCESS (process)->inherit_coding_system_flag = flag;
   return flag;
 }
@@ -851,7 +851,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->inherit_coding_system_flag;
 }
 
@@ -865,7 +865,7 @@
 {
   Lisp_Object tem;
 
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   tem = XPROCESS (process)->kill_without_query;
   XPROCESS (process)->kill_without_query = Fnull (value);
 
@@ -879,7 +879,7 @@
      (process)
      register Lisp_Object process;
 {
-  CHECK_PROCESS (process, 0);
+  CHECK_PROCESS (process);
   return XPROCESS (process)->childp;
 }
 
@@ -1090,11 +1090,11 @@
   }
 
   name = args[0];
-  CHECK_STRING (name, 0);
+  CHECK_STRING (name);
 
   program = args[2];
 
-  CHECK_STRING (program, 2);
+  CHECK_STRING (program);
 
   proc = make_process (name);
   /* If an error occurs and we can't start the process, we want to
@@ -1169,7 +1169,7 @@
   for (i = 3; i < nargs; i++)
     {
       tem = args[i];
-      CHECK_STRING (tem, i);
+      CHECK_STRING (tem);
       len += STRING_BYTES (XSTRING (tem)) + 1;	/* count the blank */
     }
   new_argv = (unsigned char *) alloca (len);
@@ -1177,7 +1177,7 @@
   for (i = 3; i < nargs; i++)
     {
       tem = args[i];
-      CHECK_STRING (tem, i);
+      CHECK_STRING (tem);
       strcat (new_argv, " ");
       strcat (new_argv, XSTRING (tem)->data);
     }
@@ -1220,7 +1220,7 @@
   for (i = 3; i < nargs; i++)
     {
       tem = args[i];
-      CHECK_STRING (tem, i);
+      CHECK_STRING (tem);
       if (STRING_MULTIBYTE (tem))
 	tem = (code_convert_string_norecord
 	       (tem, XPROCESS (proc)->encode_coding_system, 1));
@@ -1784,8 +1784,8 @@
 #endif
 
   GCPRO4 (name, buffer, host, service);
-  CHECK_STRING (name, 0);
-  CHECK_STRING (host, 0);
+  CHECK_STRING (name);
+  CHECK_STRING (host);
 
 #ifdef HAVE_GETADDRINFO
   /* SERVICE can either be a string or int.
@@ -1797,7 +1797,7 @@
     }
   else
     {
-      CHECK_STRING (service, 0);
+      CHECK_STRING (service);
       portstring = XSTRING (service)->data;
     }
 #else /* HAVE_GETADDRINFO */
@@ -1805,7 +1805,7 @@
     port = htons ((unsigned short) XINT (service));
   else
     {
-      CHECK_STRING (service, 0);
+      CHECK_STRING (service);
       svc_info = getservbyname (XSTRING (service)->data, "tcp");
       if (svc_info == 0)
 	error ("Unknown service \"%s\"", XSTRING (service)->data);
@@ -2250,11 +2250,11 @@
   int useconds;
 
   if (! NILP (process))
-    CHECK_PROCESS (process, 0);
+    CHECK_PROCESS (process);
 
   if (! NILP (timeout_msecs))
     {
-      CHECK_NUMBER (timeout_msecs, 2);
+      CHECK_NUMBER (timeout_msecs);
       useconds = XINT (timeout_msecs);
       if (!INTEGERP (timeout))
 	XSETINT (timeout, 0);
@@ -2280,7 +2280,7 @@
 
   if (! NILP (timeout))
     {
-      CHECK_NUMBER (timeout, 1);
+      CHECK_NUMBER (timeout);
       seconds = XINT (timeout);
       if (seconds < 0 || (seconds == 0 && useconds == 0))
 	seconds = -1;
@@ -3561,7 +3561,7 @@
      Lisp_Object process, string;
 {
   Lisp_Object proc;
-  CHECK_STRING (string, 1);
+  CHECK_STRING (string);
   proc = get_process (process);
   send_process (proc, XSTRING (string)->data,
 		STRING_BYTES (XSTRING (string)), string);
@@ -3904,7 +3904,7 @@
      (pid, sigcode)
      Lisp_Object pid, sigcode;
 {
-  CHECK_NUMBER (pid, 0);
+  CHECK_NUMBER (pid);
 
 #define handle_signal(NAME, VALUE)		\
   else if (!strcmp (name, NAME))		\
@@ -3916,7 +3916,7 @@
     {
       unsigned char *name;
 
-      CHECK_SYMBOL (sigcode, 1);
+      CHECK_SYMBOL (sigcode);
       name = XSYMBOL (sigcode)->name->data;
 
       if (0)
@@ -4516,7 +4516,7 @@
 {
   register struct Lisp_Process *p;
 
-  CHECK_PROCESS (proc, 0);
+  CHECK_PROCESS (proc);
   p = XPROCESS (proc);
   if (XINT (p->infd) < 0)
     error ("Input file descriptor of %s closed", XSTRING (p->name)->data);
@@ -4539,7 +4539,7 @@
      (proc)
      register Lisp_Object proc;
 {
-  CHECK_PROCESS (proc, 0);
+  CHECK_PROCESS (proc);
   return Fcons (XPROCESS (proc)->decode_coding_system,
 		XPROCESS (proc)->encode_coding_system);
 }