comparison src/process.c @ 83019:82c3b4da43ca

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-33 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-34 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-35 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-36 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-37 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-38 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-39 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-40 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-41 Make fringe-drawing stuff compile without a window-system * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-42 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-43 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-44 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-45 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-46 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-47 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-48 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-49 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-50 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-59

83018:1465425fe2d3

/* Asynchronous subprocess control for GNU Emacs.
   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999,
      2001, 2002, 2003 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

      /* If calling from keyboard input, do not quit
	 since we want to return C-g as an input character.
	 Otherwise, do pending quit if requested.  */
      if (XINT (read_kbd) >= 0)
	QUIT;

      /* Exit now if the cell we're waiting for became non-nil.  */
      if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
	break;

	      for (channel = 0; check_delay > 0 && channel <= max_process_desc; channel++)
		{
		  proc = chan_process[channel];
		  if (NILP (proc))
		    continue;
		  if (XPROCESS (proc)->read_output_delay > 0)
		    {
		      check_delay--;
		      if (NILP (XPROCESS (proc)->read_output_skip))
			continue;
		      FD_CLR (channel, &Available);

83019:82c3b4da43ca

/* Asynchronous subprocess control for GNU Emacs.
   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999,
      2001, 2002, 2003, 2004 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

      /* If calling from keyboard input, do not quit
	 since we want to return C-g as an input character.
	 Otherwise, do pending quit if requested.  */
      if (XINT (read_kbd) >= 0)
	QUIT;
#ifdef SYNC_INPUT
      else if (interrupt_input_pending)
	handle_async_input ();
#endif

      /* Exit now if the cell we're waiting for became non-nil.  */
      if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
	break;

	      for (channel = 0; check_delay > 0 && channel <= max_process_desc; channel++)
		{
		  proc = chan_process[channel];
		  if (NILP (proc))
		    continue;
		  if (XINT (XPROCESS (proc)->read_output_delay) > 0)
		    {
		      check_delay--;
		      if (NILP (XPROCESS (proc)->read_output_skip))
			continue;
		      FD_CLR (channel, &Available);