Extend `call-process' to take the `(:file "file")' syntax to redirect

STDOUT to a file.

1 files changed, 15 insertions, 0 deletions

diff --git a/src/sysdep.c b/src/sysdep.c
index ca7de4f54bb..9a7045f3610 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -302,6 +302,19 @@ int wait_debugging EXTERNALLY_VISIBLE;
 void
 wait_for_termination (int pid)
 {
+  wait_for_termination_1 (pid, 0);
+}
+
+/* Like the above, but allow keyboard interruption. */
+void
+interruptible_wait_for_termination (int pid)
+{
+  wait_for_termination_1 (pid, 1);
+}
+
+void
+wait_for_termination_1 (int pid, int interruptible)
+{
   while (1)
     {
 #if (defined (BSD_SYSTEM) || defined (HPUX)) && !defined(__GNU__)
@@ -339,6 +352,8 @@ wait_for_termination (int pid)
       sigsuspend (&empty_mask);
 #endif /* not WINDOWSNT */
 #endif /* not BSD_SYSTEM, and not HPUX version >= 6 */
+      if (interruptible)
+        QUIT;
     }
 }