Let EMACS_SERVER_NAME envvar change server-name
This commit is contained in:
parent
7c82cb6002
commit
a715f848aa
1 changed files with 2 additions and 0 deletions
|
@ -146,6 +146,8 @@ savehist file."
|
||||||
:defer 1
|
:defer 1
|
||||||
:after-call (pre-command-hook after-find-file)
|
:after-call (pre-command-hook after-find-file)
|
||||||
:config
|
:config
|
||||||
|
(when-let* ((name (getenv "EMACS_SERVER_NAME")))
|
||||||
|
(setq server-name name))
|
||||||
(unless (server-running-p)
|
(unless (server-running-p)
|
||||||
(server-start)))
|
(server-start)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue