From 3894870bde653e22d5438720e194ac37995ee08a Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 3 May 2003 23:18:51 +0000
Subject: [PATCH] When checking whether readline clears SA_RESTART, let
 readline read from "/dev/null".  Otherwise, it might be stopped when run in
 the background with job control, say.  Thanks to Michael Talbot-Wilson!

---
 guile-readline/configure.in | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/guile-readline/configure.in b/guile-readline/configure.in
index 41661713a..1d389752a 100644
--- a/guile-readline/configure.in
+++ b/guile-readline/configure.in
@@ -88,6 +88,16 @@ main ()
   action.sa_flags |= SA_RESTART;
   sigaction (SIGWINCH, &action, NULL);
 
+  /* Give readline something to read.  Otherwise, it might hang, for
+     example when run as a background process with job control.
+  */
+  rl_instream = fopen ("/dev/null", "r");
+  if (rl_instream == NULL)
+    {
+      perror ("/dev/null");
+      exit (1);
+    }
+
   rl_pre_input_hook = hook;
   readline ("");
 }],