comparison src/keyboard.c @ 83454:845a93c68e9a

Fix C-g during `make-network-process'. (Reported by Mark Plaksin.) * src/process.c (Fmake_network_process): Don't unrequest_sigio on modern systems. * src/keyboard.c (Fset_input_interrupt_mode): Cosmetic change. * src/sysdep.c (request_sigio): Make it a no-op if noninteractive. (unrequest_sigio): Make it a no-op if noninteractive. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-494

83453:55e22205ba88

     Lisp_Object interrupt;
{
  int new_interrupt_input;
#ifdef SIGIO
/* Note SIGIO has been undef'd if FIONREAD is missing.  */
  if (0
#ifdef HAVE_X_WINDOWS
      || x_display_list != NULL
#endif
      )
    {
      /* 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
      new_interrupt_input = 0;
#else /* not NO_SOCK_SIGIO */
      new_interrupt_input = 1;
#endif /* NO_SOCK_SIGIO */
    }
  else
    new_interrupt_input = !NILP (interrupt);
#else /* not SIGIO */
  new_interrupt_input = 0;
#endif /* not SIGIO */

      start_polling ();
#endif
    }
  return Qnil;
}
  
DEFUN ("set-output-flow-control", Fset_output_flow_control, Sset_output_flow_control, 1, 2, 0,
       doc: /* Enable or disable ^S/^Q flow control for output to TERMINAL.
If FLOW is non-nil, flow control is enabled and you cannot use C-s or
C-q in key sequences.

83454:845a93c68e9a

     Lisp_Object interrupt;
{
  int new_interrupt_input;
#ifdef SIGIO
/* Note SIGIO has been undef'd if FIONREAD is missing.  */
#ifdef HAVE_X_WINDOWS
  if (x_display_list != NULL)
    {
      /* 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
      new_interrupt_input = 0;
#else /* not NO_SOCK_SIGIO */
      new_interrupt_input = 1;
#endif /* NO_SOCK_SIGIO */
    }
  else
#endif
    new_interrupt_input = !NILP (interrupt);
#else /* not SIGIO */
  new_interrupt_input = 0;
#endif /* not SIGIO */

      start_polling ();
#endif
    }
  return Qnil;
}

DEFUN ("set-output-flow-control", Fset_output_flow_control, Sset_output_flow_control, 1, 2, 0,
       doc: /* Enable or disable ^S/^Q flow control for output to TERMINAL.
If FLOW is non-nil, flow control is enabled and you cannot use C-s or
C-q in key sequences.