# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1196410784 0
# Node ID f5153b60663d3f288b7fa419838c696d8fcd3154
# Parent  e4c75e9b905b9d22b16ce462b50b8f8ba732fa2f
(emacs_close) [MAC_OSX && HAVE_CARBON]:
Use mac_try_close_socket.

diff -r e4c75e9b905b -r f5153b60663d src/sysdep.c
--- a/src/sysdep.c	Fri Nov 30 08:19:36 2007 +0000
+++ b/src/sysdep.c	Fri Nov 30 08:19:44 2007 +0000
@@ -3320,6 +3320,15 @@
   int did_retry = 0;
   register int rtnval;
 
+#if defined (MAC_OSX) && defined (HAVE_CARBON)
+  {
+    extern int mac_try_close_socket P_ ((int));
+
+    if (mac_try_close_socket (fd))
+      return 0;
+  }
+#endif
+
   while ((rtnval = close (fd)) == -1
 	 && (errno == EINTR))
     did_retry = 1;