Mercurial > emacs
changeset 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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 29 Apr 1998 21:46:43 +0000 |
| parents | 8f34099fb8b4 |
| children | 96fd475a324d |
| files | src/process.c |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/process.c Wed Apr 29 20:33:11 1998 +0000 +++ b/src/process.c Wed Apr 29 21:46:43 1998 +0000 @@ -868,7 +868,7 @@ 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 @@ 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 @@ 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 @@ 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 @@ /* 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;