| @@ -356,19 +356,17 @@ IF OK-IF-ALREADY-EXISTS is true force download." | |||||
| ;; server | ;; server | ||||
| (when (safe-require-or-eval 'server) | |||||
| (setq server-name (concat "server" | |||||
| (number-to-string (emacs-pid)))) | |||||
| ;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil | |||||
| ;; In Darwin environment, init fails with message like 'Service name too long' | |||||
| ;; when server-use-tcp is nil | |||||
| (when (or (eq system-type | |||||
| 'cygwin) | |||||
| (eq system-type | |||||
| 'darwin)) | |||||
| (setq server-use-tcp t)) | |||||
| (server-start)) | |||||
| (set-variable 'server-name (concat "server" | |||||
| (number-to-string (emacs-pid)))) | |||||
| ;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil | |||||
| ;; In Darwin environment, init fails with message like 'Service name too long' | |||||
| ;; when server-use-tcp is nil | |||||
| (when (or (eq system-type | |||||
| 'cygwin) | |||||
| (eq system-type | |||||
| 'darwin)) | |||||
| (set-variable 'server-use-tcp t)) | |||||
| ;; MSYS2 fix | ;; MSYS2 fix | ||||