changeset 25770:3a44b5298cd5

(list_processes_1): Remove unused variables. (Fopen_network_stream, create_process): Add parentheses to conditional expressions. (create_process): Put declaration of sigchld in #if 0. (Fopen_network_stream): Removed unused variables. (Fopen_network_stream, wait_reading_process_input, wait_reading_process_input, send_process, send_process): Ditto. (toplevel): Add prototypes for set_waiting_for_input and keyboard_bit_set.

--- a/src/process.c	Mon Sep 20 00:34:41 1999 +0000
+++ b/src/process.c	Mon Sep 20 00:34:43 1999 +0000
@@ -143,6 +143,8 @@
 
 #include "syswait.h"
 
+extern void set_waiting_for_input P_ ((EMACS_TIME *));
+
 extern int errno;
 extern char *strerror ();
 #ifdef VMS
@@ -214,6 +216,8 @@
 
 #include "sysselect.h"
 
+extern int keyboard_bit_set P_ ((SELECT_TYPE *));
+
 /* If we support a window system, turn on the code to poll periodically
    to detect C-g.  It isn't actually used when doing interrupt input.  */
 #ifdef HAVE_WINDOW_SYSTEM
@@ -932,9 +936,7 @@
 {
   register Lisp_Object tail, tem;
   Lisp_Object proc, minspace, tem1;
-  register struct buffer *old = current_buffer;
   register struct Lisp_Process *p;
-  register int state;
   char tembuf[80];
 
   XSETFASTINT (minspace, 1);
@@ -1333,9 +1335,11 @@
   struct sigaction sighup_action;
 #endif
 #else /* !POSIX_SIGNALS */
+#if 0
 #ifdef SIGCHLD
   SIGTYPE (*sigchld)();
 #endif
+#endif /* 0 */
 #endif /* !POSIX_SIGNALS */
   /* Use volatile to protect variables from being clobbered by longjmp.  */
   volatile int forkin, forkout;
@@ -1445,7 +1449,7 @@
   setup_coding_system (XPROCESS (process)->encode_coding_system,
 		       proc_encode_coding_system[outchannel]);
 
-  if (!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters)
+  if ((!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters))
       || (NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters)))
     {
       /* In unibyte mode, character code conversion should not take
@@ -1814,15 +1818,12 @@
       Lisp_Object name, buffer, host, service;
 {
   Lisp_Object proc;
-  register int i;
-
 #ifndef HAVE_GETADDRINFO
   struct sockaddr_in address;
   struct servent *svc_info;
   struct hostent *host_info_ptr, host_info;
   char *(addr_list[2]);
   IN_ADDR numeric_addr;
-  struct hostent host_info_fixed;
   int port;
 #else /* HAVE_GETADDRINFO */
   struct addrinfo hints, *res, *lres;
@@ -2100,8 +2101,8 @@
 
     if (!NILP (Vcoding_system_for_read))
       val = Vcoding_system_for_read;
-    else if (!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters)
-	     || NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters))
+    else if ((!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters))
+	     || (NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters)))
       /* We dare not decode end-of-line format by setting VAL to
 	 Qraw_text, because the existing Emacs Lisp libraries
 	 assume that they receive bare code including a sequene of
@@ -2367,11 +2368,11 @@
      Lisp_Object read_kbd;
      int do_display;
 {
-  register int channel, nfds, m;
+  register int channel, nfds;
   static SELECT_TYPE Available;
   int xerrno;
   Lisp_Object proc;
-  EMACS_TIME timeout, end_time, garbage;
+  EMACS_TIME timeout, end_time;
   SELECT_TYPE Atemp;
   int wait_channel = -1;
   struct Lisp_Process *wait_proc = 0;
@@ -3321,7 +3322,7 @@
   if (CODING_REQUIRE_ENCODING (coding))
     {
       int require = encoding_buffer_size (coding, len);
-      int offset, dummy;
+      int offset;
       unsigned char *temp_buf = NULL;
 
       /* Remember the offset of data because a string or a buffer may
@@ -3403,7 +3404,6 @@
       {
 	int this = len;
 	SIGTYPE (*old_sigpipe)();
-	int flush_pty = 0;
 
 	/* Decide how much data we can send in one batch.
 	   Long lines need to be split into multiple batches.  */