# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101412899 0
# Node ID 1a5509ec45da218e2002a51602174f4965e75384
# Parent  7b179055722a8475ad72ca00c59fc5ead5beeb03
(sys_signal): Don't use SA_RESTART if SYNC_INPUT is set.
(emacs_open, emacs_read, emacs_write): Check QUIT when interrupted.

diff -r 7b179055722a -r 1a5509ec45da src/ChangeLog
--- a/src/ChangeLog	Thu Nov 25 20:01:18 2004 +0000
+++ b/src/ChangeLog	Thu Nov 25 20:01:39 2004 +0000
@@ -1,3 +1,10 @@
+2004-11-25  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* sysdep.c (sys_signal): Don't use SA_RESTART if SYNC_INPUT is set.
+	(emacs_open, emacs_read, emacs_write): Check QUIT when interrupted.
+
+	* lread.c (readchar): Check QUIT when `getc' is interrupted.
+
 2004-11-24  Richard M. Stallman  <rms@gnu.org>
 
 	* coding.c (run_pre_post_conversion_on_str): Bind Qinhibit_read_only.
diff -r 7b179055722a -r 1a5509ec45da src/sysdep.c
--- a/src/sysdep.c	Thu Nov 25 20:01:18 2004 +0000
+++ b/src/sysdep.c	Thu Nov 25 20:01:39 2004 +0000
@@ -1,6 +1,6 @@
 /* Interfaces to system-dependent kernel and library entries.
-   Copyright (C) 1985, 86,87,88,93,94,95,1999,2000,01,2003
-   Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
+     2003, 2004  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -2768,12 +2768,16 @@
   struct sigaction new_action, old_action;
   sigemptyset (&new_action.sa_mask);
   new_action.sa_handler = action;
-#if defined (SA_RESTART) && ! defined (BROKEN_SA_RESTART)
+#if defined (SA_RESTART) && ! defined (BROKEN_SA_RESTART) && !defined(SYNC_INPUT)
   /* Emacs mostly works better with restartable system services. If this
      flag exists, we probably want to turn it on here.
      However, on some systems this resets the timeout of `select'
      which means that `select' never finishes if it keeps getting signals.
      BROKEN_SA_RESTART is defined on those systems.  */
+  /* It's not clear why the comment above says "mostly works better".  --Stef
+     When SYNC_INPUT is set, we don't want SA_RESTART because we need to poll
+     for pending input so we need long-running syscalls to be interrupted
+     after a signal that sets the interrupt_input_pending flag.  */
   new_action.sa_flags = SA_RESTART;
 #else
   new_action.sa_flags = 0;
@@ -3225,7 +3229,8 @@
 #endif
 
   while ((rtnval = open (path, oflag, mode)) == -1
-	 && (errno == EINTR));
+	 && (errno == EINTR))
+    QUIT;
   return (rtnval);
 }
 
@@ -3258,7 +3263,8 @@
   register int rtnval;
 
   while ((rtnval = read (fildes, buf, nbyte)) == -1
-	 && (errno == EINTR));
+	 && (errno == EINTR))
+    QUIT;
   return (rtnval);
 }
 
@@ -3279,7 +3285,7 @@
       if (rtnval == -1)
 	{
 	  if (errno == EINTR)
-	    continue;
+	    { QUIT; continue; }
 	  else
 	    return (bytes_written ? bytes_written : -1);
 	}