# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806019632 0
# Node ID 1a96888d82ed6a915ff630aaecbcaa0988aac44c
# Parent  7f0e41dec3f03be0de2dd57442a4aba7b2d8ed5a
(Fwrite_region): If fsync fails with EINTR, don't
report a Lisp error.

diff -r 7f0e41dec3f0 -r 1a96888d82ed src/fileio.c
--- a/src/fileio.c	Mon Jul 17 22:20:01 1995 +0000
+++ b/src/fileio.c	Mon Jul 17 22:20:32 1995 +0000
@@ -3370,7 +3370,11 @@
   /* mib says that closing the file will try to write as fast as NFS can do
      it, and that means the fsync here is not crucial for autosave files.  */
   if (!auto_saving && fsync (desc) < 0)
-    failure = 1, save_errno = errno;
+    {
+      /* If fsync fails with EINTR, don't treat that as serious.  */
+      if (errno != EINTR)
+	failure = 1, save_errno = errno;
+    }
 #endif
 
   /* Spurious "file has changed on disk" warnings have been