From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 10 May 1997 21:44:11 +0000 (+0000)
Subject: (Fbury_buffer): If buffer is in selected window, remove it.
X-Git-Tag: emacs-20.1~2210
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=435bc8400e6cde55bb92302aff9f82d75a3da103;p=emacs.git

(Fbury_buffer): If buffer is in selected window, remove it.
Otherwise, remove it from other windows.
---

diff --git a/src/buffer.c b/src/buffer.c
index 343686d43f1..1b5a66b0986 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1534,9 +1534,6 @@ selected window if it is displayed there.")
   if (NILP (buffer))
     {
       XSETBUFFER (buffer, current_buffer);
-
-      /* If we're burying the current buffer, unshow it.  */
-      Fswitch_to_buffer (Fother_buffer (buffer, Qnil), Qnil);
     }
   else
     {
@@ -1548,6 +1545,13 @@ selected window if it is displayed there.")
       buffer = buf1;
     }
 
+  /* Unshow the buffer in the selected window, if it is there.  */
+  if (EQ (XWINDOW (selected_window)->buffer, buffer))
+    Fswitch_to_buffer (Fother_buffer (buffer, Qnil), Qnil);
+  /* Otherwise, unshow it in other frames.  */
+  else
+    Freplace_buffer_in_windows (buffer);
+
   /* Move buffer to the end of the buffer list.  */
   {
     register Lisp_Object aelt, link;