From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 2 Jan 1996 08:55:11 +0000 (+0000)
Subject: (replace_buffer_in_all_windows): New function.
X-Git-Tag: emacs-19.34~1942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff58478bbbf193fb27603e7639cdcfb8ec241af3;p=emacs.git

(replace_buffer_in_all_windows): New function.
Like Freplace_buffer_in_windows but really does all frames.
---

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.  */