From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 01:22:23 +0000 (+0000)
Subject: (deactivate_process) [SVR4_PTYS]: If subtty is not nil, close it.
X-Git-Tag: emacs-19.34~10612
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53b6ab286b83624cae9f8ffc4e6372b664d6029f;p=emacs.git

(deactivate_process) [SVR4_PTYS]: If subtty is not nil, close it.
---

diff --git a/src/process.c b/src/process.c
index 105e055b180..408a2579ef0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1524,6 +1524,10 @@ deactivate_process (proc)
       close (inchannel);
       if (outchannel >= 0 && outchannel != inchannel)
  	close (outchannel);
+#ifdef SYSV4_PTYS
+      if (!NILP (p->subtty))
+        close (XINT (p->subtty));
+#endif
 #endif
 
       XSET (p->infd, Lisp_Int, -1);