From becadff8d8148af128aaa3aef2b1cf61536b4bb1 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Jun 1994 04:48:02 +0000
Subject: [PATCH] (x_term_init): Don't call get_system_name.

---
 src/xterm.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/xterm.c b/src/xterm.c
index ddd3ffbe972..7d5cd5a5de9 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -176,8 +176,8 @@ static FONT_TYPE *icon_font_info;
 
 /* Stuff for dealing with the main icon title. */
 
-extern Lisp_Object Vcommand_line_args;
-char *hostname, *x_id_name;
+extern Lisp_Object Vcommand_line_args, Vsystem_name;
+char *x_id_name;
 
 /* Initial values of argv and argc.  */
 extern char **initial_argv;
@@ -6114,11 +6114,11 @@ Check the DISPLAY environment variable or use \"-d\"\n",
 #if 0
     XSetAfterFunction (x_current_display, x_trace_wire);
 #endif /* ! 0 */
-    hostname = get_system_name ();
     x_id_name = (char *) xmalloc (XSTRING (Vinvocation_name)->size
-				+ strlen (hostname)
+				+ XSTRING (Vsystem_name)->size
 				+ 2);
-    sprintf (x_id_name, "%s@%s", XSTRING (Vinvocation_name)->data, hostname);
+    sprintf (x_id_name, "%s@%s",
+	     XSTRING (Vinvocation_name)->data, XSTRING (Vsystem_name)->data);
   }
 
   /* Figure out which modifier bits mean what.  */