(create_pty): Fix last change.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/process.c b/src/process.c
index 15ed971b3e2..56a8d189f99 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2355,7 +2355,12 @@ create_pty (process)
     max_process_desc = inchannel;
 
   XPROCESS (process)->pid = -2;
-  XPROCESS (process)->tty_name = build_string (pty_name);
+#ifdef HAVE_PTYS
+  if (pty_flag)
+    XPROCESS (process)->tty_name = build_string (pty_name);
+  else
+#endif
+    XPROCESS (process)->tty_name = Qnil;
 }