# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 700945747 0
# Node ID 1c2d1836941aec340eef73dd3948d2642e639a20
# Parent  c792b1df81102ba2dcbfb0b69fbdece0fd37c163
*** empty log message ***

diff -r c792b1df8110 -r 1c2d1836941a src/dispnew.c
--- a/src/dispnew.c	Tue Mar 17 23:19:40 1992 +0000
+++ b/src/dispnew.c	Wed Mar 18 19:09:07 1992 +0000
@@ -1,5 +1,5 @@
 /* Updating of data structures for redisplay.
-   Copyright (C) 1985, 1986, 1987, 1988, 1990 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1990, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -1780,9 +1780,6 @@
   (n, millisec)
      Lisp_Object n, millisec;
 {
-#ifndef subprocesses
-  EMACS_TIME timeout, end_time;
-#endif /* no subprocesses */
   int usec = 0;
   int sec;
 
@@ -1801,9 +1798,9 @@
 #endif
     }
 
-#ifdef subprocesses
   wait_reading_process_input (sec, usec, 0, 0);
-#else /* No subprocesses */
+
+#if 0 /* No wait_reading_process_input */
   immediate_quit = 1;
   QUIT;
 
@@ -1816,7 +1813,7 @@
 #ifdef HAVE_SELECT
   EMACS_GET_TIME (end_time);
   EMACS_SET_SECS_USECS (timeout, sec, usec);
-  EMACS_ADD_TIME (end_time, timeout);
+  EMACS_ADD_TIME (end_time, end_time, timeout);
  
   while (1)
     {
@@ -1847,10 +1844,6 @@
   (n, millisec, nodisp)
      Lisp_Object n, millisec, nodisp;
 {
-#ifndef subprocesses
-  EMACS_TIME timeout;
-  int waitchannels;
-#endif /* no subprocesses */
   int usec = 0;
   int sec;
 
@@ -1876,12 +1869,12 @@
 #endif
     }
 
-#ifdef subprocesses
 #ifdef SIGIO
   gobble_input ();
 #endif				/* SIGIO */
   wait_reading_process_input (sec, usec, 1, 1);
-#else				/* no subprocesses */
+
+#if 0 /* No wait_reading_process_input available.  */
   immediate_quit = 1;
   QUIT;
 
@@ -1889,12 +1882,18 @@
 #ifdef VMS
   input_wait_timeout (XINT (n));
 #else				/* not VMS */
-  EMACS_SET_SECS_USECS (timeout, sec, usec);
+#ifndef HAVE_TIMEVAL
+  timeout_sec = sec;
+  select (1, &waitchannels, 0, 0, &timeout_sec);
+#else /* HAVE_TIMEVAL */
+  timeout.tv_sec = sec;  
+  timeout.tv_usec = usec;
   select (1, &waitchannels, 0, 0, &timeout);
+#endif /* HAVE_TIMEVAL */
 #endif /* not VMS */
 
   immediate_quit = 0;
-#endif /* no subprocesses */
+#endif 
 
   return detect_input_pending () ? Qnil : Qt;
 }
diff -r c792b1df8110 -r 1c2d1836941a src/emacs.c
--- a/src/emacs.c	Tue Mar 17 23:19:40 1992 +0000
+++ b/src/emacs.c	Wed Mar 18 19:09:07 1992 +0000
@@ -1,5 +1,5 @@
 /* Fully extensible Emacs, running on Unix, intended for GNU.
-   Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -140,9 +140,7 @@
 #endif /* uses pgrp */
 
   /* Clean up */
-#ifdef subprocesses
   kill_buffer_processes (Qnil);
-#endif
   Fdo_auto_save (Qt, Qnil);
 
 #ifdef CLASH_DETECTION
@@ -443,9 +441,7 @@
 #ifdef VMS
   init_vmsfns ();
 #endif /* VMS */
-#ifdef subprocesses
   init_process ();
-#endif /* subprocesses */
 
 /* Intern the names of all standard functions and variables; define standard keys */
 
@@ -490,9 +486,7 @@
       syms_of_marker ();
       syms_of_minibuf ();
       syms_of_mocklisp ();
-#ifdef subprocesses
       syms_of_process ();
-#endif /* subprocesses */
       syms_of_search ();
 #ifdef MULTI_SCREEN
       syms_of_screen ();
@@ -576,9 +570,7 @@
   if (!NILP (Vrun_hooks) && !noninteractive)
     call1 (Vrun_hooks, intern ("kill-emacs-hook"));
 
-#ifdef subprocesses
   kill_buffer_processes (Qnil);
-#endif /* subprocesses */
 
 #ifdef VMS
   kill_vms_processes ();