(server-start): Always use pipes for communication.

diff --git a/lisp/server.el b/lisp/server.el
index 5b0f88a09f704baaf195961d08d4d406aeaec37b..0e525a60fd40a3b057a78ff19dcc39ab76ea0adf 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -158,7 +158,10 @@ Prefix arg means just kill any existing server communications subprocess."
       nil
     (if server-process
        (server-log (message "Restarting server")))
-    (setq server-process (start-process "server" nil server-program))
+    ;; Using a pty is wasteful, and the separate session causes
+    ;; annoyance sometimes (some systems kill idle sessions).
+    (let ((process-connection-type nil))
+      (setq server-process (start-process "server" nil server-program)))
     (set-process-sentinel server-process 'server-sentinel)
     (set-process-filter server-process 'server-process-filter)
     (process-kill-without-query server-process)))