mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-13 15:00:42 -08:00
Code Issues Projects Releases Wiki Activity

(Fdisplay_buffer): Fix prev change--return selected window.

Browse source
This commit is contained in:
Richard M. Stallman 1995-03-14 18:39:58 +00:00
parent 3b9f7964e9
commit c63dc4a2d8
1 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/window.c
View file

@ -1888,23 +1888,35 @@ Returns the window displaying BUFFER.")
{
tem = Fmember (XBUFFER (buffer)->name, Vsame_window_buffer_names);
if (!NILP (tem))
return Fswitch_to_buffer (buffer, Qnil);
{
Fswitch_to_buffer (buffer, Qnil);
return selected_window;
}
tem = Fassoc (XBUFFER (buffer)->name, Vsame_window_buffer_names);
if (!NILP (tem))
return Fswitch_to_buffer (buffer, Qnil);
{
Fswitch_to_buffer (buffer, Qnil);
return selected_window;
}
for (tem = Vsame_window_regexps; CONSP (tem); tem = XCONS (tem)->cdr)
{
Lisp_Object car = XCONS (tem)->car;
if (STRINGP (car)
&& fast_string_match (car, XBUFFER (buffer)->name) >= 0)
return Fswitch_to_buffer (buffer, Qnil);
{
Fswitch_to_buffer (buffer, Qnil);
return selected_window;
}
else if (CONSP (car)
&& STRINGP (XCONS (car)->car)
&& fast_string_match (XCONS (car)->car,
XBUFFER (buffer)->name) >= 0)
return Fswitch_to_buffer (buffer, Qnil);
{
Fswitch_to_buffer (buffer, Qnil);
return selected_window;
}
}
}