(struct process): Make inherit_coding_system_flag a Lisp_Object.

1 files changed, 9 insertions, 5 deletions

diff --git a/src/process.h b/src/process.h
index 79ad07eab6a..fea56f47463 100644
--- a/src/process.h
+++ b/src/process.h
@@ -19,10 +19,11 @@ the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
 
-/*
- * Structure records pertinent information about open channels.
- * There is one channel associated with each process.
- */
+/* This structure records information about a subprocess
+   or network connection.
+
+   Every field in this structure except for the first two
+   must be a Lisp_Object, for GC's sake.  */
 
 struct Lisp_Process
   {
@@ -89,9 +90,12 @@ struct Lisp_Process
     Lisp_Object encoding_carryover;
     /* Flag to set coding-system of the process buffer from the
        coding_system used to decode process output.  */
-    int inherit_coding_system_flag;
+    Lisp_Object inherit_coding_system_flag;
 };
 
+/* Every field in the preceding structure except for the first two
+   must be a Lisp_Object, for GC's sake.  */
+
 #define ChannelMask(n) (1<<(n))
 
 /* Indexed by descriptor, gives the process (if any) for that descriptor.  */