From a715f848aae6b301a835a11a6529a199aaac13c6 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 16 Aug 2018 12:53:38 +0200
Subject: [PATCH] Let EMACS_SERVER_NAME envvar change server-name

---
 core/core-editor.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/core/core-editor.el b/core/core-editor.el
index 0962c5a7b..3398f59e3 100644
--- a/core/core-editor.el
+++ b/core/core-editor.el
@@ -146,6 +146,8 @@ savehist file."
   :defer 1
   :after-call (pre-command-hook after-find-file)
   :config
+  (when-let* ((name (getenv "EMACS_SERVER_NAME")))
+    (setq server-name name))
   (unless (server-running-p)
     (server-start)))