# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1235096185 0
# Node ID 39b2e6feb7683c0506afeb4b1e9401c01ceffb35
# Parent  d31ea613f9892f4eefc6ce8d1bbc1a295a6b912b
(server-start): Make the warning more verbose (Bug#2395).

diff -r d31ea613f989 -r 39b2e6feb768 lisp/server.el
--- a/lisp/server.el	Fri Feb 20 02:14:39 2009 +0000
+++ b/lisp/server.el	Fri Feb 20 02:16:25 2009 +0000
@@ -493,9 +493,14 @@
 	  ;; Remove any leftover socket or authentication file
 	  (ignore-errors (delete-file server-file))
 	(setq server-mode nil) ;; already set by the minor mode code
-	(display-warning 'server
-			 (format "Emacs server named %S already running" server-name)
-			 :warning)
+	(display-warning
+	 'server
+	 (concat "Unable to start the Emacs server.\n"
+		 (format "There is an existing Emacs server, named %S.\n"
+			 server-name)
+		 "To start the server in this Emacs process, stop the existing
+server or call `M-x server-force-delete' to forcibly disconnect it.")
+	 :warning)
 	(setq leave-dead t))
       ;; If this Emacs already had a server, clear out associated status.
       (while server-clients