From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 29 May 1995 19:40:47 +0000 (+0000)
Subject: (Fset_input_mode): When read_socket_hook, ignore
X-Git-Tag: emacs-19.34~3865
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a0f60bbb776046a2706e5029d13d13ceec7ca94;p=emacs.git

(Fset_input_mode): When read_socket_hook, ignore
what the user specified, and set interrupt_input in the preferred
way for this system.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 45c5c46be2f..27253dfc243 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6525,19 +6525,27 @@ See also `current-input-mode'.")
   reset_sys_modes ();
 #ifdef SIGIO
 /* Note SIGIO has been undef'd if FIONREAD is missing.  */
-#ifdef NO_SOCK_SIGIO
   if (read_socket_hook)
-    interrupt_input = 0;	/* No interrupts if reading from a socket.  */
-  else
+    {
+      /* When using X, don't give the user a real choice,
+	 because we haven't implemented the mechanisms to support it.  */
+#ifdef NO_SOCK_SIGIO
+      interrupt_input = 0;
+#else /* not NO_SOCK_SIGIO */
+      interrupt_input = 1;
 #endif /* NO_SOCK_SIGIO */
+    }
+  else
     interrupt_input = !NILP (interrupt);
 #else /* not SIGIO */
   interrupt_input = 0;
 #endif /* not SIGIO */
+
 /* Our VMS input only works by interrupts, as of now.  */
 #ifdef VMS
   interrupt_input = 1;
 #endif
+
   flow_control = !NILP (flow);
   if (NILP (meta))
     meta_key = 0;