-/* Check whether a given KEY VALUE pair is supported on this system. */
-
-static int
-network_process_featurep (key, value)
- Lisp_Object key, value;
-{
-
- if (EQ (key, QCnowait))
- {
-#ifdef NON_BLOCKING_CONNECT
- return 1;
-#else
- return NILP (value);
-#endif
- }
-
- if (EQ (key, QCdatagram))
- {
-#ifdef DATAGRAM_SOCKETS
- return 1;
-#else
- return NILP (value);
-#endif
- }
-
- if (EQ (key, QCfamily))
- {
- if (NILP (value))
- return 1;
-#ifdef HAVE_LOCAL_SOCKETS
- if (EQ (key, Qlocal))
- return 1;
-#endif
- return 0;
- }
-
- if (EQ (key, QCname))
- return STRINGP (value);
-
- if (EQ (key, QCbuffer))
- return (NILP (value) || STRINGP (value) || BUFFERP (value));
-
- if (EQ (key, QClocal) || EQ (key, QCremote))
- {
- int family;
- return get_lisp_to_sockaddr_size (value, &family);
- }
-
- if (EQ (key, QChost))
- return (NILP (value) || STRINGP (value));
-
- if (EQ (key, QCservice))
- {
-#ifdef HAVE_GETSOCKNAME
- if (EQ (value, Qt))
- return 1;
-#endif
- return (INTEGERP (value) || STRINGP (value));
- }
-
- if (EQ (key, QCserver))
- {
-#ifndef TERM
- return 1;
-#else
- return NILP (value);
-#endif
- }
-
- if (EQ (key, QCoptions))
- return set_socket_options (-1, value, 0);
-
- if (EQ (key, QCcoding))
- return 1;
- if (EQ (key, QCsentinel))
- return 1;
- if (EQ (key, QCfilter))
- return 1;
- if (EQ (key, QClog))
- return 1;
- if (EQ (key, QCnoquery))
- return 1;
- if (EQ (key, QCstop))
- return 1;
-
- return 0;
-}
-