# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893886403 0
# Node ID 050ea21cec873634aa69cf4e9d7e9eacdbe6fde4
# Parent  8f34099fb8b4794930db794f3b1d82c03e75f49b
(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.

diff -r 8f34099fb8b4 -r 050ea21cec87 src/process.c
--- 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;