(create_process): Set line discipline only if pty_flag.

[bpt/emacs.git] / src / process.c

diff --git a/src/process.c b/src/process.c
index d43b488..301a44d 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -1245,12 +1245,13 @@ create_process (process, new_argv, current_dir)
 #endif /* USG */
 #endif /* not HAVE_SETSID */
 #ifdef NTTYDISC
-       {
-         /* Use new line discipline.  */
-         int ldisc = NTTYDISC;
-         if (ioctl (xforkin, TIOCSETD, &ldisc) < 0)
-           write (1, "create_process/TIOCSETD failed\n", 31);
-       }
+       if (pty_flag)
+         {
+           /* Use new line discipline.  */
+           int ldisc = NTTYDISC;
+           if (ioctl (xforkin, TIOCSETD, &ldisc) < 0)
+             write (1, "create_process/TIOCSETD failed\n", 31);
+         }
 #endif
 #ifdef TIOCNOTTY 
        /* In 4.3BSD, the TIOCSPGRP bug has been fixed, and now you