From ac98827760f17ccb3497fcad97acac3947013531 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Jun 1994 05:28:51 +0000
Subject: [PATCH] (init_editfns): Call init_system_name instead of
 get_system_name. (get_system_name): New function, now just uses Vsystem_name.

---
 src/editfns.c | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/editfns.c b/src/editfns.c
index 8a7becbcc33..3c1bb3fa3eb 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -55,15 +55,7 @@ init_editfns ()
   Lisp_Object tem;
 
   /* Set up system_name even when dumping.  */
-
-  Vsystem_name = build_string (get_system_name ());
-  p = XSTRING (Vsystem_name)->data;
-  while (*p)
-    {
-      if (*p == ' ' || *p == '\t')
-	*p = '-';
-      p++;
-    }
+  init_system_name ();
 
 #ifndef CANNOT_DUMP
   /* Don't bother with this on initial start when just dumping out */
@@ -539,6 +531,13 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
   return Vsystem_name;
 }
 
+/* For the benefit of callers who don't want to include lisp.h */
+char *
+get_system_name ()
+{
+  return XSTRING (Vsystem_name)->data;
+}
+
 DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0,
   "Return the process ID of Emacs, as an integer.")
   ()
-- 
2.39.5