From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Mar 1997 20:49:24 +0000 (+0000)
Subject: (frames_bury_buffer): New function.
X-Git-Tag: emacs-20.1~2710
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=214b32165eba7e8ddf8d97a21f86ba43fa4f3be3;p=emacs.git

(frames_bury_buffer): New function.
---

diff --git a/src/frame.c b/src/frame.c
index 51827be40d9..e8408f20a1d 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1716,6 +1716,22 @@ frames_discard_buffer (buffer)
     }
 }
 
+/* Move BUFFER to the end of the buffer-list of each frame.  */
+
+void
+frames_bury_buffer (buffer)
+     Lisp_Object buffer;
+{
+  Lisp_Object frame, tail;
+
+  FOR_EACH_FRAME (tail, frame)
+    {
+      XFRAME (frame)->buffer_list
+	= nconc2 (Fdelq (buffer, XFRAME (frame)->buffer_list),
+		  Fcons (buffer, Qnil));
+    }
+}
+
 /* Modify the alist in *ALISTPTR to associate PROP with VAL.
    If the alist already has an element for PROP, we change it.  */