From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 2 Dec 2002 15:50:03 +0000 (+0000)
Subject: (server-buffer-done): Test of server-existing-buffer was backwards.
X-Git-Tag: emacs-pretest-21.2.93~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=541332e2e159e44e10c10fa0efc8e32e87d0d543;p=emacs.git

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

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))