diff options
-rw-r--r-- | src/frame.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/frame.c b/src/frame.c index 51827be40d..e8408f20a1 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. */ |