# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 683857774 0
# Node ID 50ee23d51f156888bb7f0eb88fdfa410df6ccf72
# Parent  3cc2c51360642719ad8a3ae7d2d5698ddcf1faaa
*** empty log message ***

diff -r 3cc2c5136064 -r 50ee23d51f15 lisp/server.el
--- a/lisp/server.el	Mon Sep 02 20:23:32 1991 +0000
+++ b/lisp/server.el	Tue Sep 03 00:29:34 1991 +0000
@@ -130,6 +130,9 @@
 	(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))))