(create_pty): Fix last change.

2 files changed, 10 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index fb194ed5e27..5e78a64a0ba 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-14  Eli Zaretskii  <eliz@gnu.org>
+
+        * process.c (create_pty): Fix last change.
+
 2009-08-13  Chong Yidong  <cyd@stupidchicken.com>
 
         * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
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;
 }