From ff58478bbbf193fb27603e7639cdcfb8ec241af3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 2 Jan 1996 08:55:11 +0000 Subject: [PATCH] (replace_buffer_in_all_windows): New function. Like Freplace_buffer_in_windows but really does all frames. --- src/window.c | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/src/window.c b/src/window.c index be1722ae3e4..fd39556b847 100644 --- a/src/window.c +++ b/src/window.c @@ -1624,6 +1624,36 @@ DEFUN ("replace-buffer-in-windows", Freplace_buffer_in_windows, } return Qnil; } + +/* Replace BUFFER with some other buffer in all windows + of all frames, even those on other keyboards. */ + +void +replace_buffer_in_all_windows (buffer) + Lisp_Object buffer; +{ + Lisp_Object tail, frame; + +#ifdef MULTI_FRAME + Lisp_Object old_selected; + + old_selected = selected_window; + + /* A single call to window_loop won't do the job + because it only considers frames on the current keyboard. + So loop manually over frames, and handle each one. */ + FOR_EACH_FRAME (tail, frame) + { + Fselect_window (FRAME_SELECTED_WINDOW (XFRAME (frame))); + + window_loop (UNSHOW_BUFFER, buffer, 0, frame); + } + + Fselect_window (old_selected); +#else + window_loop (UNSHOW_BUFFER, buffer, 0, Qt); +#endif +} /* Set the height of WINDOW and all its inferiors. */ -- 2.39.2