From 541332e2e159e44e10c10fa0efc8e32e87d0d543 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 2 Dec 2002 15:50:03 +0000
Subject: [PATCH] (server-buffer-done): Test of server-existing-buffer was
 backwards.

---
 lisp/server.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/server.el b/lisp/server.el
index 8683f02d139..2bb528c874b 100644
--- 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))
-- 
2.39.5