From: Pavel Janík <Pavel@Janik.cz>
Date: Mon, 18 Mar 2002 11:27:26 +0000 (+0000)
Subject: (Fmake_network_process): Remove unused variable `sa'.
X-Git-Tag: ttn-vms-21-2-B4~16103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa9d4315b7a562926cbe2743a84246ffc612867c;p=emacs.git

(Fmake_network_process): Remove unused variable `sa'.
Doc fix.  Add usage:.
(set_socket_options): Remove unused variables `optnum' and `opttype'.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 152bd67f000..10b6cf3bd83 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2002-03-18  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* process.c (Fmake_network_process): Remove unused variable `sa'.
+	Doc fix.  Add usage:.
+	(set_socket_options): Remove unused variables `optnum' and
+	`opttype'.
+
 2002-03-17  Richard M. Stallman  <rms@gnu.org>
 
 	* xdisp.c (cursor_type_changed): New variable.
diff --git a/src/process.c b/src/process.c
index 0b90649fb9d..033511d99ae 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2217,7 +2217,6 @@ set_socket_options (s, opts, no_error)
       Lisp_Object val;
       char *name, *arg;
       struct socket_options *sopt;
-      int optnum, opttype;
       int ret = 0;
 
       opt = XCAR (opts);
@@ -2494,7 +2493,7 @@ DEFUN ("make-network-process", Fmake_network_process, Smake_network_process,
        0, MANY, 0, 
        doc: /* Create and return a network server or client process.
 
-In emacs, network connections are represented by process objects, so
+In Emacs, network connections are represented by process objects, so
 input and output work as for subprocesses and `delete-process' closes
 a network connection.  However, a network process has no process id,
 it cannot be signalled, and the status codes are different from normal
@@ -2607,7 +2606,9 @@ process' buffer.
 
 The following special call returns t iff a given KEY VALUE
 pair is supported on this system:
-  (make-network-process :feature KEY VALUE)  */)
+  (make-network-process :feature KEY VALUE)
+
+usage: (make-network-process &rest ARGS)  */)
      (nargs, args)
      int nargs;
      Lisp_Object *args;
@@ -2630,7 +2631,6 @@ pair is supported on this system:
     struct _emacs_addrinfo *ai_next;
   } ai, *res, *lres;
 #endif /* HAVE_GETADDRINFO */
-  struct sockaddr *sa = 0;
   struct sockaddr_in address_in;
 #ifdef HAVE_LOCAL_SOCKETS
   struct sockaddr_un address_un;