Mercurial > emacs
comparison lisp/server.el @ 413:50ee23d51f15
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Sep 1991 00:29:34 +0000 |
| parents | 7e4c7ef44243 |
| children | 2a2230dd1b1c |
comparison
equal
deleted
inserted
replaced
| 412:3cc2c5136064 | 413:50ee23d51f15 |
|---|---|
| 128 (if server-process | 128 (if server-process |
| 129 (progn | 129 (progn |
| 130 (set-process-sentinel server-process nil) | 130 (set-process-sentinel server-process nil) |
| 131 (condition-case () (delete-process server-process) (error nil)))) | 131 (condition-case () (delete-process server-process) (error nil)))) |
| 132 (condition-case () (delete-file "~/.emacs_server") (error nil)) | 132 (condition-case () (delete-file "~/.emacs_server") (error nil)) |
| 133 (condition-case () | |
| 134 (delete-file (format "/tmp/esrv%d-%s" (user-uid) (system-name))) | |
| 135 (error nil)) | |
| 133 ;; If we already had a server, clear out associated status. | 136 ;; If we already had a server, clear out associated status. |
| 134 (while server-clients | 137 (while server-clients |
| 135 (let ((buffer (nth 1 (car server-clients)))) | 138 (let ((buffer (nth 1 (car server-clients)))) |
| 136 (server-buffer-done buffer))) | 139 (server-buffer-done buffer))) |
| 137 (if leave-dead | 140 (if leave-dead |