aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/server.el11
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
502server 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