comparison src/process.c @ 21848:050ea21cec87

(Fset_process_inherit_coding_system_flag, Fstart_process): Store inherit_coding_system_flag as a Lisp_Object. (Fopen_network_stream): Likewise. (Fprocess_inherit_coding_system_flag): Access it as Lisp_Object. (read_process_output): Likewise.

21847:8f34099fb8b4

for the process which will run.")
  (process, flag)
     register Lisp_Object process, flag;
{
  CHECK_PROCESS (process, 0);
  XPROCESS (process)->inherit_coding_system_flag = !NILP (flag);
  return flag;
}

DEFUN ("process-inherit-coding-system-flag",
  Fprocess_inherit_coding_system_flag, Sprocess_inherit_coding_system_flag,

the process output.")
  (process)
     register Lisp_Object process;
{
  CHECK_PROCESS (process, 0);
  return XPROCESS (process)->inherit_coding_system_flag ? Qt : Qnil;
}

DEFUN ("process-kill-without-query", Fprocess_kill_without_query,
  Sprocess_kill_without_query, 1, 2, 0,
  "Say no query needed if PROCESS is running when Emacs is exited.\n\

  XPROCESS (proc)->decoding_carryover = make_number (0);
  XPROCESS (proc)->encoding_buf = make_uninit_string (0);
  XPROCESS (proc)->encoding_carryover = make_number (0);

  XPROCESS (proc)->inherit_coding_system_flag
    = (NILP (buffer) || !inherit_process_coding_system) ? 0 : 1;

  create_process (proc, (char **) new_argv, current_dir);

  return unbind_to (count, proc);
}

  XPROCESS (proc)->decoding_buf = make_uninit_string (0);
  XPROCESS (proc)->decoding_carryover = make_number (0);
  XPROCESS (proc)->encoding_buf = make_uninit_string (0);
  XPROCESS (proc)->encoding_carryover = make_number (0);

  XPROCESS (proc)->inherit_coding_system_flag =
    NILP (buffer) || !inherit_process_coding_system ? 0 : 1;

  UNGCPRO;
  return proc;
}
#endif	/* HAVE_SOCKETS */

  XSETINT (p->decoding_carryover, carryover);
  Vlast_coding_system_used = coding->symbol;

  /* If the caller required, let the process associated buffer
     inherit the coding-system used to decode the process output.  */
  if (p->inherit_coding_system_flag
      && !NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
    {
      struct buffer *prev_buf = current_buffer;

      Fset_buffer (p->buffer);

21848:050ea21cec87

for the process which will run.")
  (process, flag)
     register Lisp_Object process, flag;
{
  CHECK_PROCESS (process, 0);
  XPROCESS (process)->inherit_coding_system_flag = flag;
  return flag;
}

DEFUN ("process-inherit-coding-system-flag",
  Fprocess_inherit_coding_system_flag, Sprocess_inherit_coding_system_flag,

the process output.")
  (process)
     register Lisp_Object process;
{
  CHECK_PROCESS (process, 0);
  return XPROCESS (process)->inherit_coding_system_flag;
}

DEFUN ("process-kill-without-query", Fprocess_kill_without_query,
  Sprocess_kill_without_query, 1, 2, 0,
  "Say no query needed if PROCESS is running when Emacs is exited.\n\

  XPROCESS (proc)->decoding_carryover = make_number (0);
  XPROCESS (proc)->encoding_buf = make_uninit_string (0);
  XPROCESS (proc)->encoding_carryover = make_number (0);

  XPROCESS (proc)->inherit_coding_system_flag
    = (NILP (buffer) || !inherit_process_coding_system
       ? Qnil : Qt);

  create_process (proc, (char **) new_argv, current_dir);

  return unbind_to (count, proc);
}

  XPROCESS (proc)->decoding_buf = make_uninit_string (0);
  XPROCESS (proc)->decoding_carryover = make_number (0);
  XPROCESS (proc)->encoding_buf = make_uninit_string (0);
  XPROCESS (proc)->encoding_carryover = make_number (0);

  XPROCESS (proc)->inherit_coding_system_flag
    = (NILP (buffer) || !inherit_process_coding_system
       ? Qnil : Qt);

  UNGCPRO;
  return proc;
}
#endif	/* HAVE_SOCKETS */

  XSETINT (p->decoding_carryover, carryover);
  Vlast_coding_system_used = coding->symbol;

  /* If the caller required, let the process associated buffer
     inherit the coding-system used to decode the process output.  */
  if (! NILP (p->inherit_coding_system_flag)
      && !NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
    {
      struct buffer *prev_buf = current_buffer;

      Fset_buffer (p->buffer);