Let EMACS_SERVER_NAME envvar change server-name

This commit is contained in:
Henrik Lissner 2018-08-16 12:53:38 +02:00
parent 7c82cb6002
commit a715f848aa
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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)))