mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(server-start): Try both possible socket file names for the file to delete.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-11 20:36:53 +00:00
parent 0588a76157
commit e89da28d29
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/server.el
View File

@ -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))))