aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-09-29 06:19:35 +0000
committerJim Blandy1992-09-29 06:19:35 +0000
commit0e2c9c702ce48cb20ee4afbf2796035cc7effda5 (patch)
treed3bb60ff0184a390e8e1f014beabdd96c3754728
parenta080486e57ba53ae98ea061603219d97b6cc75c7 (diff)
downloademacs-0e2c9c702ce48cb20ee4afbf2796035cc7effda5.tar.gz
emacs-0e2c9c702ce48cb20ee4afbf2796035cc7effda5.zip
* editfns.c (save_excursion_save, save_excursion_restore):
Formatting tweaked for readability.
-rw-r--r--src/editfns.c9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/editfns.c b/src/editfns.c
index 846de70d67c..cf7efd5a953 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -275,10 +275,12 @@ store it in a Lisp variable. Example:\n\
275Lisp_Object 275Lisp_Object
276save_excursion_save () 276save_excursion_save ()
277{ 277{
278 register int visible = XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer; 278 register int visible = (XBUFFER (XWINDOW (selected_window)->buffer)
279 == current_buffer);
279 280
280 return Fcons (Fpoint_marker (), 281 return Fcons (Fpoint_marker (),
281 Fcons (Fcopy_marker (current_buffer->mark), visible ? Qt : Qnil)); 282 Fcons (Fcopy_marker (current_buffer->mark),
283 visible ? Qt : Qnil));
282} 284}
283 285
284Lisp_Object 286Lisp_Object
@@ -302,7 +304,8 @@ save_excursion_restore (info)
302 Fset_marker (current_buffer->mark, tem, Fcurrent_buffer ()); 304 Fset_marker (current_buffer->mark, tem, Fcurrent_buffer ());
303 unchain_marker (tem); 305 unchain_marker (tem);
304 tem = Fcdr (Fcdr (info)); 306 tem = Fcdr (Fcdr (info));
305 if (!NILP (tem) && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)) 307 if (!NILP (tem)
308 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
306 Fswitch_to_buffer (Fcurrent_buffer (), Qnil); 309 Fswitch_to_buffer (Fcurrent_buffer (), Qnil);
307 return Qnil; 310 return Qnil;
308} 311}