comparison src/process.c @ 14404:cba05f90ee57

(wait_reading_process_input): Call timer_check and shorten the inner delay if appropriate.

14403:c91cf5d2b95f

/* Don't make static; need to access externally.  */
int proc_buffered_char[MAXDESC];

static Lisp_Object get_process ();

/* Maximum number of bytes to send to a pty without an eof.  */
static int pty_max_bytes;

#ifdef HAVE_PTYS
/* The file name of the pty opened by allocate_pty.  */

	    break;
	}
      else
	{
	  EMACS_SET_SECS_USECS (timeout, 100000, 0);
	}

      /* Cause C-g and alarm signals to take immediate action,
	 and cause input available signals to zero out timeout.

14404:cba05f90ee57

/* Don't make static; need to access externally.  */
int proc_buffered_char[MAXDESC];

static Lisp_Object get_process ();

extern EMACS_TIME timer_check ();

/* Maximum number of bytes to send to a pty without an eof.  */
static int pty_max_bytes;

#ifdef HAVE_PTYS
/* The file name of the pty opened by allocate_pty.  */

	    break;
	}
      else
	{
	  EMACS_SET_SECS_USECS (timeout, 100000, 0);
	}

      /* If our caller will not immediately handle keyboard events,
	 run timer events directly.
	 (Callers that will immediately read keyboard events
	 call timer_delay on their own.)  */
      if (read_kbd >= 0)
	{
	  EMACS_TIME timer_delay = timer_check (1);
	  if (! EMACS_TIME_NEG_P (timer_delay))
	    {
	      EMACS_TIME difference;
	      EMACS_SUB_TIME (difference, timer_delay, timeout);
	      if (EMACS_TIME_NEG_P (difference))
		timeout = timer_delay;
	    }
	}

      /* Cause C-g and alarm signals to take immediate action,
	 and cause input available signals to zero out timeout.