(server-buffer-done): Bury the buffer before

killing it.

2 files changed, 4 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e31727d3f81..1596b093cca 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 e362c8e5607..e4a451c364a 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)