# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 958477612 0
# Node ID 963baceb241473a86e299d5ed15d21ee2d6751a4
# Parent  5d906f89034da3eeefdbdc457feca43f07923e90
(frames_bury_buffer): Don't add a buffer to the frame's
buffer list that wasn't selected in that frame.

diff -r 5d906f89034d -r 963baceb2414 src/frame.c
--- a/src/frame.c	Tue May 16 11:17:39 2000 +0000
+++ b/src/frame.c	Tue May 16 11:46:52 2000 +0000
@@ -1864,9 +1864,13 @@
 
   FOR_EACH_FRAME (tail, frame)
     {
-      XFRAME (frame)->buffer_list
-	= nconc2 (Fdelq (buffer, XFRAME (frame)->buffer_list),
-		  Fcons (buffer, Qnil));
+      struct frame *f = XFRAME (frame);
+      Lisp_Object found;
+      
+      found = Fmemq (buffer, f->buffer_list);
+      if (!NILP (found))
+	f->buffer_list = nconc2 (Fdelq (buffer, f->buffer_list),
+				 Fcons (buffer, Qnil));
     }
 }