mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(Fset_process_inherit_coding_system_flag, Fstart_process):

Browse source 
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.
This commit is contained in:
Richard M. Stallman 1998-04-29 21:46:43 +00:00
parent 9f0f00d759
commit aa91317aed
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/process.c
View file

@ -868,7 +868,7 @@ for the process which will run.")
register Lisp_Object process, flag;
{
CHECK_PROCESS (process, 0);
XPROCESS (process)->inherit_coding_system_flag = !NILP (flag);
XPROCESS (process)->inherit_coding_system_flag = flag;
return flag;
}
@ -883,7 +883,7 @@ the process output.")
register Lisp_Object process;
{
CHECK_PROCESS (process, 0);
return XPROCESS (process)->inherit_coding_system_flag ? Qt : Qnil;
return XPROCESS (process)->inherit_coding_system_flag;
}
DEFUN ("process-kill-without-query", Fprocess_kill_without_query,
@ -1273,7 +1273,8 @@ Remaining arguments are strings to give program as arguments.")
XPROCESS (proc)->encoding_carryover = make_number (0);
XPROCESS (proc)->inherit_coding_system_flag
= (NILP (buffer) || !inherit_process_coding_system) ? 0 : 1;
= (NILP (buffer) || !inherit_process_coding_system
? Qnil : Qt);
create_process (proc, (char **) new_argv, current_dir);
@ -2065,8 +2066,9 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
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;
XPROCESS (proc)->inherit_coding_system_flag
= (NILP (buffer) || !inherit_process_coding_system
? Qnil : Qt);
UNGCPRO;
return proc;
@ -2917,7 +2919,7 @@ read_process_output (proc, channel)
/* 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
if (! NILP (p->inherit_coding_system_flag)
&& !NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
{
struct buffer *prev_buf = current_buffer;