Mercurial > emacs

comparison lisp/server.el @ 8202:80350a95921a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-start): Try both possible socket file names for the file to delete.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Jul 1994 20:36:53 +0000
parents 69ec123ef310
children 14b8f8a28ace
comparison
equal deleted inserted replaced
8201:686198604dc7 8202:80350a95921a
145 (if server-process 145 (if server-process
146 (progn 146 (progn
147 (set-process-sentinel server-process nil) 147 (set-process-sentinel server-process nil)
148 (condition-case () (delete-process server-process) (error nil)))) 148 (condition-case () (delete-process server-process) (error nil))))
149 (condition-case () (delete-file "~/.emacs_server") (error nil)) 149 (condition-case () (delete-file "~/.emacs_server") (error nil))
150 (condition-case ()
151 (delete-file (format "/tmp/esrv%d-%s" (user-uid) (system-name)))
152 (error nil))
150 ;; If we already had a server, clear out associated status. 153 ;; If we already had a server, clear out associated status.
151 (while server-clients 154 (while server-clients
152 (let ((buffer (nth 1 (car server-clients)))) 155 (let ((buffer (nth 1 (car server-clients))))
153 (server-buffer-done buffer))) 156 (server-buffer-done buffer)))
154 (if leave-dead 157 (if leave-dead