Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

* editfns.c (save_excursion_save, save_excursion_restore):

Browse source 
Formatting tweaked for readability.
This commit is contained in:
Jim Blandy 1992-09-29 06:19:35 +00:00
parent a080486e57
commit 0e2c9c702c
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/editfns.c
View file

@ -275,10 +275,12 @@ store it in a Lisp variable. Example:\n\
Lisp_Object
save_excursion_save ()
{
register int visible = XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer;
register int visible = (XBUFFER (XWINDOW (selected_window)->buffer)
== current_buffer);
return Fcons (Fpoint_marker (),
Fcons (Fcopy_marker (current_buffer->mark), visible ? Qt : Qnil));
Fcons (Fcopy_marker (current_buffer->mark),
visible ? Qt : Qnil));
}
Lisp_Object
@ -302,7 +304,8 @@ save_excursion_restore (info)
Fset_marker (current_buffer->mark, tem, Fcurrent_buffer ());
unchain_marker (tem);
tem = Fcdr (Fcdr (info));
if (!NILP (tem) && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
if (!NILP (tem)
&& current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
Fswitch_to_buffer (Fcurrent_buffer (), Qnil);
return Qnil;
}