[mew-dist 26724] Re: ちょっぴり敗北宣言

[Kazu Yamamoto ( 山本和彦 )]

> 少くともシンボル化についてはどうにかするべきでしょうね。

では、こんな感じで提案してみますかぁ。

--かず

Index: process.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/process.c,v
retrieving revision 1.467
diff -c -r1.467 process.c
*** process.c	8 Nov 2005 21:38:37 -0000	1.467
--- process.c	10 Dec 2005 02:19:49 -0000
***************
*** 141,146 ****
--- 141,147 ----
  Lisp_Object Qrun, Qstop, Qsignal;
  Lisp_Object Qopen, Qclosed, Qconnect, Qfailed, Qlisten;
  Lisp_Object Qlocal, Qdatagram;
+ Lisp_Object Qinet, Qinet6;
  Lisp_Object QCname, QCbuffer, QChost, QCservice, QCtype;
  Lisp_Object QClocal, QCremote, QCcoding;
  Lisp_Object QCserver, QCnowait, QCnoquery, QCstop;
***************
*** 2596,2603 ****
  
  :family FAMILY -- FAMILY is the address (and protocol) family for the
  service specified by HOST and SERVICE.  The default address family is
! Inet (or IPv4) for the host and port number specified by HOST and
  SERVICE.  Other address families supported are:
    local -- for a local (i.e. UNIX) address specified by SERVICE.
  
  :local ADDRESS -- ADDRESS is the local address used for the connection.
--- 2597,2606 ----
  
  :family FAMILY -- FAMILY is the address (and protocol) family for the
  service specified by HOST and SERVICE.  The default address family is
! IPv6 or IPv4 for the host and port number specified by HOST and
  SERVICE.  Other address families supported are:
+   inet  -- for an IPv4 address specified by SERVICE.
+   inet6 -- for an IPv6 address specified by SERVICE.
    local -- for a local (i.e. UNIX) address specified by SERVICE.
  
  :local ADDRESS -- ADDRESS is the local address used for the connection.
***************
*** 2859,2866 ****
      family = XINT (tem);
    else
      {
!       if (NILP (tem))
  	family = AF_INET;
  #ifdef HAVE_LOCAL_SOCKETS
        else if (EQ (tem, Qlocal))
  	family = AF_LOCAL;
--- 2862,2871 ----
      family = XINT (tem);
    else
      {
!       if (NILP (tem) || EQ (tem, Qinet))
  	family = AF_INET;
+       else if (EQ (tem, Qinet6))
+ 	family = AF_INET6;
  #ifdef HAVE_LOCAL_SOCKETS
        else if (EQ (tem, Qlocal))
  	family = AF_LOCAL;
***************
*** 6724,6729 ****
--- 6729,6736 ----
  #ifdef HAVE_LOCAL_SOCKETS
     ADD_SUBFEATURE (QCfamily, Qlocal);
  #endif
+    ADD_SUBFEATURE (QCfamily, Qinet);
+    ADD_SUBFEATURE (QCfamily, Qinet6);
  #ifdef HAVE_GETSOCKNAME
     ADD_SUBFEATURE (QCservice, Qt);
  #endif
***************
*** 6782,6787 ****
--- 6789,6798 ----
    staticpro (&Qlisten);
    Qlocal = intern ("local");
    staticpro (&Qlocal);
+   Qinet = intern ("inet");
+   staticpro (&Qinet);
+   Qinet6 = intern ("inet6");
+   staticpro (&Qinet6);
    Qdatagram = intern ("datagram");
    staticpro (&Qdatagram);