From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 30 Jan 2016 03:34:48 +0000 (+0100)
Subject: Save correct server data
X-Git-Tag: emacs-26.0.90~2520^2~58
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5b2f25f3560eb6b590de8391b6a71c2178ff591;p=emacs.git

Save correct server data

* process.c (connect_network_socket): Save the correct contact
info for servers.
---

diff --git a/src/process.c b/src/process.c
index aef74d3d474..06fb6858785 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3218,7 +3218,7 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
 	}
 #endif
 
-      contact = Fplist_put (contact, p->is_server? QCremote: QClocal,
+      contact = Fplist_put (contact, p->is_server? QClocal: QCremote,
 			    conv_sockaddr_to_lisp (sa, addrlen));
 #ifdef HAVE_GETSOCKNAME
       if (!p->is_server)
@@ -3577,7 +3577,8 @@ usage: (make-network-process &rest ARGS)  */)
     {
       /* The "connection" function gets it bind info from the address we're
 	 given, so use this dummy address if nothing is specified. */
-      host = build_string ("127.0.0.1");
+      if (family != AF_LOCAL)
+	host = build_string ("127.0.0.1");
     }
   else
     {