diff options
| author | Richard M. Stallman | 1991-09-03 00:29:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1991-09-03 00:29:34 +0000 |
| commit | a10097faff25cab7c752a53267ffb4c80adc4abc (patch) | |
| tree | feb50df463dd4e3df9f4b42ab56b6f517cc00983 | |
| parent | 46cec291bb710de8bf9df636a083d4727fd07ccd (diff) | |
| download | emacs-a10097faff25cab7c752a53267ffb4c80adc4abc.tar.gz emacs-a10097faff25cab7c752a53267ffb4c80adc4abc.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/server.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index e4259be4ff0..2645fb77cb3 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -130,6 +130,9 @@ Prefix arg means just kill any existing server communications subprocess." | |||
| 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)))) |