Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-943

1 files changed, 9 insertions, 0 deletions

diff --git a/src/sysdep.c b/src/sysdep.c
index 81850919dd3..d1f378a3f87 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3486,6 +3486,15 @@ emacs_close (fd)
   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;