-#ifdef subprocesses
- wait_reading_process_input (0, 0, -1, 1);
-#else
-/* Note SIGIO has been undef'd if FIONREAD is missing. */
-#ifdef SIGIO
- if (interrupt_input)
- {
- sigblockx (SIGIO);
- set_waiting_for_input (0);
- while (EVENT_QUEUES_EMPTY)
- sigpausex (SIGIO);
- clear_waiting_for_input ();
- sigunblockx (SIGIO);
- }
-#else
- interrupt_input = 0;
-#endif /* not SIGIO */
-#endif /* subprocesses */
+ Lisp_Object minus_one;
+
+ XSET (minus_one, Lisp_Int, -1);
+ wait_reading_process_input (0, 0, minus_one, 1);