diff options
| -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 29a9d24c3ad..5b0f88a09f7 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -147,6 +147,9 @@ Prefix arg means just kill any existing server communications subprocess." (set-process-sentinel server-process nil) (condition-case () (delete-process server-process) (error nil)))) (condition-case () (delete-file "~/.emacs_server") (error nil)) + (condition-case () + (delete-file (format "/tmp/esrv%d-%s" (user-uid) (system-name))) + (error nil)) ;; If we already had a server, clear out associated status. (while server-clients (let ((buffer (nth 1 (car server-clients)))) |