Mercurial > emacs
comparison lisp/server.el @ 8733:14b8f8a28ace
(server-start): Always use pipes for communication.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 Sep 1994 09:00:44 +0000 |
| parents | 80350a95921a |
| children | 8c659649649e |
comparison
equal
deleted
inserted
replaced
| 8732:58d6dc80af5c | 8733:14b8f8a28ace |
|---|---|
| 156 (server-buffer-done buffer))) | 156 (server-buffer-done buffer))) |
| 157 (if leave-dead | 157 (if leave-dead |
| 158 nil | 158 nil |
| 159 (if server-process | 159 (if server-process |
| 160 (server-log (message "Restarting server"))) | 160 (server-log (message "Restarting server"))) |
| 161 (setq server-process (start-process "server" nil server-program)) | 161 ;; Using a pty is wasteful, and the separate session causes |
| 162 ;; annoyance sometimes (some systems kill idle sessions). | |
| 163 (let ((process-connection-type nil)) | |
| 164 (setq server-process (start-process "server" nil server-program))) | |
| 162 (set-process-sentinel server-process 'server-sentinel) | 165 (set-process-sentinel server-process 'server-sentinel) |
| 163 (set-process-filter server-process 'server-process-filter) | 166 (set-process-filter server-process 'server-process-filter) |
| 164 (process-kill-without-query server-process))) | 167 (process-kill-without-query server-process))) |
| 165 | 168 |
| 166 ;Process a request from the server to edit some files. | 169 ;Process a request from the server to edit some files. |