Mercurial > emacs

comparison src/editfns.c @ 1254:c7e7e3438711

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* editfns.c (save_excursion_save, save_excursion_restore): Formatting tweaked for readability.
author Jim Blandy <jimb@redhat.com>
date Tue, 29 Sep 1992 06:19:35 +0000
parents 878afcdce84e
children d50533e23dff
comparison
equal deleted inserted replaced
1253:7afcf7be0d30 1254:c7e7e3438711
273 #endif /* commented-out code */ 273 #endif /* commented-out code */
274 274
275 Lisp_Object 275 Lisp_Object
276 save_excursion_save () 276 save_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
284 Lisp_Object 286 Lisp_Object
285 save_excursion_restore (info) 287 save_excursion_restore (info)
286 register Lisp_Object info; 288 register Lisp_Object info;
300 unchain_marker (tem); 302 unchain_marker (tem);
301 tem = Fcar (Fcdr (info)); 303 tem = Fcar (Fcdr (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 }
309 312
310 DEFUN ("save-excursion", Fsave_excursion, Ssave_excursion, 0, UNEVALLED, 0, 313 DEFUN ("save-excursion", Fsave_excursion, Ssave_excursion, 0, UNEVALLED, 0,