diff options
| -rw-r--r-- | src/editfns.c | 9 |
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\ | |||
| 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 |
| @@ -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 | } |