[Emacs] Don't use tcp for server mode
This commit is contained in:
parent
8a20d9376e
commit
fc1d81c33a
@ -1443,6 +1443,7 @@ Paradox is a package.el extension. I have no use for it now that I use straight.
|
|||||||
:demand t
|
:demand t
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
|
(setq server-use-tcp nil)
|
||||||
(defvar imalison:default-server-file
|
(defvar imalison:default-server-file
|
||||||
(imalison:join-paths user-emacs-directory "server" "server"))
|
(imalison:join-paths user-emacs-directory "server" "server"))
|
||||||
(defun imalison:main-emacs-server-name ()
|
(defun imalison:main-emacs-server-name ()
|
||||||
@ -1461,7 +1462,6 @@ The file server file for this emacs instance no longer exists.")
|
|||||||
(defun imalison:get-this-server-filepath ()
|
(defun imalison:get-this-server-filepath ()
|
||||||
(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)
|
|
||||||
(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
|
||||||
|
Loading…
Reference in New Issue
Block a user