mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

(save_excursion_restore): Never make the buffer visible.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-08-02 07:58:13 +00:00
parent eccf8697a7
commit ef58099133
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/editfns.c
View File

@ -312,10 +312,15 @@ save_excursion_restore (info)
Fset_marker (current_buffer->mark, tem, Fcurrent_buffer ()); Fset_marker (current_buffer->mark, tem, Fcurrent_buffer ());
unchain_marker (tem); unchain_marker (tem);
tem = Fcdr (Fcdr (info)); tem = Fcdr (Fcdr (info));
#if 0 /* We used to make the current buffer visible in the selected window
if that was true previously. That avoids some anomalies.
But it creates others, and it wasn't documented, and it is simpler
and cleaner never to alter the window/buffer connections. */
tem1 = Fcar (tem); tem1 = Fcar (tem);
if (!NILP (tem1) if (!NILP (tem1)
&& current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)) && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
Fswitch_to_buffer (Fcurrent_buffer (), Qnil); Fswitch_to_buffer (Fcurrent_buffer (), Qnil);
#endif /* 0 */
tem1 = current_buffer->mark_active; tem1 = current_buffer->mark_active;
current_buffer->mark_active = Fcdr (tem); current_buffer->mark_active = Fcdr (tem);