From: Kim F. Storm <storm@cua.dk>
Date: Wed, 8 Jan 2003 22:16:12 +0000 (+0000)
Subject: (Fmake_network_process): Convert new port number
X-Git-Tag: ttn-vms-21-2-B4~11766
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21bd170ddef47f963b71d5ad90285a4c2ccc89ca;p=emacs.git

(Fmake_network_process): Convert new port number
to host byte order for `:service t' case.  From Mario Lang.
---

diff --git a/src/process.c b/src/process.c
index 6017801a659..9a11af0605b 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2974,7 +2974,7 @@ usage: (make-network-process &rest ARGS)  */)
 	      if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0)
 		{
 		  ((struct sockaddr_in *)(lres->ai_addr))->sin_port = sa1.sin_port;
-		  service = make_number (sa1.sin_port);
+		  service = make_number (ntohs (sa1.sin_port));
 		  contact = Fplist_put (contact, QCservice, service);
 		}
 	    }