From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Apr 1998 21:47:23 +0000 (+0000)
Subject: (struct process): Make inherit_coding_system_flag a Lisp_Object.
X-Git-Tag: emacs-20.3~1228
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ba993db418e3741acddb62b35b3dbb0eee4e797;p=emacs.git

(struct process): Make inherit_coding_system_flag a Lisp_Object.
---

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.  */