[Emacs] Make main only when server not started

This commit is contained in:
Ivan Malison 2018-07-05 13:14:28 -07:00
parent b7cdf1b67a
commit f0b672ed3d
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -1442,8 +1442,8 @@ The file server file for this emacs instance no longer exists.")
(let ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))) (let ((server-dir (if server-use-tcp server-auth-dir server-socket-dir)))
(expand-file-name server-name server-dir))) (expand-file-name server-name server-dir)))
(setq server-use-tcp t) (setq server-use-tcp t)
(when (equal nil (server-running-p)) (server-start)) (when (equal nil (server-running-p)) (server-start)
(imalison:make-main-emacs-server))) (imalison:make-main-emacs-server))))
#+END_SRC #+END_SRC
** list-environment ** list-environment
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp