* lisp/server.el (server-force-stop): Ensure the server is stopped (Bug#7409).

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e974e9b81f..53c6db7eb0d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-16  Ulrich Mueller  <ulm@gentoo.org>
+
+        * server.el (server-force-stop): Ensure the server is stopped (Bug#7409).
+
 2010-11-13  Eli Zaretskii  <eliz@gnu.org>
 
         * subr.el (posn-col-row): Pay attention to header line.  (Bug#7390)
diff --git a/lisp/server.el b/lisp/server.el
index 17d6743a0f7..6297cc82ab0 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -594,7 +594,7 @@ server or call `M-x server-force-delete' to forcibly disconnect it.")
 (defun server-force-stop ()
   "Kill all connections to the current server.
 This function is meant to be called from `kill-emacs-hook'."
-  (server-start nil t))
+  (server-start t t))
 
 ;;;###autoload
 (defun server-force-delete (&optional name)