diff options
| -rw-r--r-- | lisp/server.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/server.el b/lisp/server.el index cd9c5fa4ad8..1399b41e8ce 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -493,9 +493,14 @@ To force-start a server, do \\[server-force-delete] and then | |||
| 493 | ;; Remove any leftover socket or authentication file | 493 | ;; Remove any leftover socket or authentication file |
| 494 | (ignore-errors (delete-file server-file)) | 494 | (ignore-errors (delete-file server-file)) |
| 495 | (setq server-mode nil) ;; already set by the minor mode code | 495 | (setq server-mode nil) ;; already set by the minor mode code |
| 496 | (display-warning 'server | 496 | (display-warning |
| 497 | (format "Emacs server named %S already running" server-name) | 497 | 'server |
| 498 | :warning) | 498 | (concat "Unable to start the Emacs server.\n" |
| 499 | (format "There is an existing Emacs server, named %S.\n" | ||
| 500 | server-name) | ||
| 501 | "To start the server in this Emacs process, stop the existing | ||
| 502 | server or call `M-x server-force-delete' to forcibly disconnect it.") | ||
| 503 | :warning) | ||
| 499 | (setq leave-dead t)) | 504 | (setq leave-dead t)) |
| 500 | ;; If this Emacs already had a server, clear out associated status. | 505 | ;; If this Emacs already had a server, clear out associated status. |
| 501 | (while server-clients | 506 | (while server-clients |