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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e974e9b81f3f024dc0c6d38a601d9e7f936862b..53c6db7eb0d328e8488df0f7fe091c95403a1721 100644 (file)
--- 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 17d6743a0f77fbb04cc4006c035bc7b57221b94a..6297cc82ab0780f28d3c4b8227bca0547b05bc27 100644 (file)
--- 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)