From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 18 Dec 2000 17:01:16 +0000 (+0000)
Subject: (server-buffer-done): Bury the buffer before
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/3d2a0e0b7bf9b544681947537ca2cae76598dd74

(server-buffer-done): Bury the buffer before
killing it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e31727d3f8..1596b093cc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-12-18  Gerd Moellmann  <gerd@gnu.org>
 
+	* server.el (server-buffer-done): Bury the buffer before
+	killing it.
+
 	* faces.el (face-spec-set): Interpret a nil in specs for
 	foreground and background colors as `unspecified', for
 	compatibility with 20.x.
diff --git a/lisp/server.el b/lisp/server.el
index e362c8e560..e4a451c364 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -390,6 +390,7 @@ or nil.  KILLED is t if we killed BUFFER
 			   (set-buffer buffer)
 			   server-existing-buffer))
 		(setq killed t)
+		(bury-buffer buffer)
 		(kill-buffer buffer))
 	      (unless killed
 		(if (server-temp-file-p buffer)