(Fnetwork_interface_info): Fix type error.

(Fnetwork_interface_list): Doc fix.
(read_process_output, read_process_output): Delete unused var.

diff --git a/src/ChangeLog b/src/ChangeLog
index 7438e98c6a154212b7b0306a08474f0ba21937b2..15c473c4096f3b767e1efce0d97253fc689be434 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-18  Dave Love  <fx@gnu.org>
+
+       * process.c (Fnetwork_interface_info): Fix type error.
+       (Fnetwork_interface_list): Doc fix.
+       (read_process_output, read_process_output): Delete unused var.
+
 2003-09-17  Kim F. Storm  <storm@cua.dk>
 
        * process.c (Fnetwork_interface_list, Fnetwork_interface_info):

diff --git a/src/process.c b/src/process.c
index 531c60cac492bb615482704ccf4a1ab7950b1160..ca9a51601da65e9e12be0eab6c5c8f968eca2403 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -2449,7 +2449,7 @@ OPTION is not a supported option, return nil instead; otherwise return t.  */)
      Lisp_Object process, option, value;
      Lisp_Object no_error;
 {
-  int s, i;
+  int s;
 
   CHECK_PROCESS (process);
 
@@ -3343,7 +3343,7 @@ DEFUN ("network-interface-list", Fnetwork_interface_list, Snetwork_interface_lis
        doc: /* Return an alist of all network interfaces and their network address.
 Each element is a cons, the car of which is a string containing the
 interface name, and the cdr is the network address in internal
-format; see the description of ADDRESS in 'make-network-process'.  */)
+format; see the description of ADDRESS in `make-network-process'.  */)
      ()
 {
   struct ifconf ifconf;
@@ -3521,7 +3521,7 @@ FLAGS is the current flags of the interface.  */)
       any++;
       for (n = 0; n < 6; n++)
        p->contents[n] = make_number (((unsigned char *)&rq.ifr_hwaddr.sa_data[0])[n]);
-      elt = Fcons (XINT (rq.ifr_hwaddr.sa_family), hwaddr);
+      elt = Fcons (make_number (rq.ifr_hwaddr.sa_family), hwaddr);
     }
 #endif
   res = Fcons (elt, res);
@@ -4607,7 +4607,7 @@ read_process_output (proc, channel)
      Lisp_Object proc;
      register int channel;
 {
-  register int nchars, nbytes;
+  register int nbytes;
   char *chars;
   register Lisp_Object outstream;
   register struct buffer *old = current_buffer;