From: Dave Love <fx@gnu.org>
Date: Thu, 18 Sep 2003 10:40:04 +0000 (+0000)
Subject: (Fnetwork_interface_info): Fix type error.
X-Git-Tag: ttn-vms-21-2-B4~8818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e128399941e8edd2ebb141a9c3d69376e0933abd;p=emacs.git

(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 7438e98c6a1..15c473c4096 100644
--- 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 531c60cac49..ca9a51601da 100644
--- 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;