[Emacs-diffs] Changes to emacs/src/process.c

[Kim F. Storm]

Index: emacs/src/process.c
diff -c emacs/src/process.c:1.388 emacs/src/process.c:1.389
*** emacs/src/process.c:1.388   Mon Nov 18 10:40:06 2002
--- emacs/src/process.c Wed Jan  8 05:38:06 2003
***************
*** 3066,3071 ****
--- 3066,3081 ----
  #endif
        contact = Fplist_put (contact, QCaddress, 
                            conv_sockaddr_to_lisp (lres->ai_addr, 
lres->ai_addrlen));
+ #ifdef HAVE_GETSOCKNAME
+       if (!is_server)
+       {
+         struct sockaddr_in sa1;
+         int len1 = sizeof (sa1);
+         if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0)
+           contact = Fplist_put (contact, QClocal,
+                                 conv_sockaddr_to_lisp (&sa1, len1));
+       }
+ #endif
      }
  
  #ifdef HAVE_GETADDRINFO
***************
*** 3548,3554 ****
                        conv_sockaddr_to_lisp (&saddr.sa, len));
  #ifdef HAVE_GETSOCKNAME
    len = sizeof saddr;
!   if (getsockname (channel, &saddr.sa, &len) == 0)
      contact = Fplist_put (contact, QClocal, 
                          conv_sockaddr_to_lisp (&saddr.sa, len));
  #endif
--- 3558,3564 ----
                        conv_sockaddr_to_lisp (&saddr.sa, len));
  #ifdef HAVE_GETSOCKNAME
    len = sizeof saddr;
!   if (getsockname (s, &saddr.sa, &len) == 0)
      contact = Fplist_put (contact, QClocal, 
                          conv_sockaddr_to_lisp (&saddr.sa, len));
  #endif