# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756609743 0
# Node ID f12fe7f21c2dc54f81aa7198e85d5a76bf500a2b
# Parent  63932e111cc5b6c38f1190994a382cb58e542d4e
(deactivate_process) [SVR4_PTYS]: If subtty is not nil, close it.

diff -r 63932e111cc5 -r f12fe7f21c2d src/process.c
--- a/src/process.c	Thu Dec 23 01:20:50 1993 +0000
+++ b/src/process.c	Thu Dec 23 01:22:23 1993 +0000
@@ -1524,6 +1524,10 @@
       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);