(create_pty): Fix last change.

diff --git a/src/ChangeLog b/src/ChangeLog
index fb194ed..5e78a64 100644 (file)
--- 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 15ed971..56a8d18 100644 (file)
--- 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;
 }
 
 \f