(server-buffer-done): Test of server-existing-buffer was backwards.

diff --git a/lisp/server.el b/lisp/server.el
index 8683f02d1399298bb2afd76672f48d1ebfe5027c..2bb528c874bda65d66017f6d6ea1da2d9d1a56d2 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -399,9 +399,8 @@ or nil.  KILLED is t if we killed BUFFER
            (unless for-killing
              (when (and (not killed)
                         server-kill-new-buffers
-                        (save-excursion
-                          (set-buffer buffer)
-                          server-existing-buffer))
+                        (with-current-buffer buffer
+                          (not server-existing-buffer)))
                (setq killed t)
                (bury-buffer buffer)
                (kill-buffer buffer))