From 541332e2e159e44e10c10fa0efc8e32e87d0d543 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" 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