1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 08:11:05 -08:00

(Fbury_buffer): If buffer is in selected window, remove it.

Otherwise, remove it from other windows.
This commit is contained in:
Richard M. Stallman 1997-05-10 21:44:11 +00:00
parent e2b307720f
commit 435bc8400e

View file

@ -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;