# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1250241401 0
# Node ID a812c049e63c02d07904dad73cec6e744304f40d
# Parent  be5412b66c92e22ae5521479f4e6e9ee89730c20
(create_pty): Fix last change.

diff -r be5412b66c92 -r a812c049e63c src/process.c
--- a/src/process.c	Fri Aug 14 04:47:38 2009 +0000
+++ b/src/process.c	Fri Aug 14 09:16:41 2009 +0000
@@ -2355,7 +2355,12 @@
     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;
 }