From 214b32165eba7e8ddf8d97a21f86ba43fa4f3be3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 23 Mar 1997 20:49:24 +0000 Subject: [PATCH] (frames_bury_buffer): New function. --- src/frame.c | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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. */ -- 2.39.2