From 40beb971f4015cea4252d2f1e7dfb130a8f1ae75 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 16 Jan 1999 21:44:56 +0000
Subject: [PATCH] (main): Eliminate arbitrary limit on

---
 lib-src/emacsserver.c | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/lib-src/emacsserver.c b/lib-src/emacsserver.c
index 00bf923bf52..b25b58f38aa 100644
--- a/lib-src/emacsserver.c
+++ b/lib-src/emacsserver.c
@@ -213,7 +213,8 @@ main (argc, argv)
      int argc;
      char **argv;
 {
-  char system_name[32];
+  char *system_name;
+  int system_name_length;
   int s, infd;
 #ifdef SOCKLEN_TYPE
   SOCKLEN_TYPE fromlen;
@@ -250,9 +251,22 @@ main (argc, argv)
     }
   server.sun_family = AF_UNIX;
 #ifndef SERVER_HOME_DIR
-  gethostname (system_name, sizeof (system_name));
-  /* system_name must be null-terminated string */
-  system_name[sizeof (system_name) - 1] = '\0';
+  system_name_length = 32;
+
+  while (1)
+    {
+      system_name = (char *) xmalloc (system_name_length + 1);
+
+      /* system_name must be null-terminated string.  */
+      system_name[system_name_length] = '\0';
+
+      if (gethostname (system_name, system_name_length) == 0)
+	break;
+
+      free (system_name);
+      system_name_length *= 2;
+    }
+
   sprintf (server.sun_path, "/tmp/esrv%d-%s", geteuid (), system_name);
 
   if (unlink (server.sun_path) == -1 && errno != ENOENT)
-- 
2.39.2