# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 771655682 0
# Node ID cbc288be9c89c215a0f4e4574af1b7bc8f65c417
# Parent  c2259f58ef7e46d2d45b1155b0eb93dc6b295b46
(x_term_init): Don't call get_system_name.

diff -r c2259f58ef7e -r cbc288be9c89 src/xterm.c
--- a/src/xterm.c	Wed Jun 15 04:37:26 1994 +0000
+++ b/src/xterm.c	Wed Jun 15 04:48:02 1994 +0000
@@ -176,8 +176,8 @@
 
 /* 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 @@
 #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.  */