(set_window_buffer): Always preserve current-buffer.

diff --git a/src/ChangeLog b/src/ChangeLog
index bef4d029e93fd20e96eb545a7ce86b98144faf14..adcc4851d22c5f2276ad28a2cc694ae26cba00dc 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * window.c (set_window_buffer): Always preserve current-buffer.
+
 2008-09-12  Glenn Morris  <rgm@gnu.org>
 
        * charset.c (init_charset): Warn if etc/charsets not found.  (Bug#909)

diff --git a/src/window.c b/src/window.c
index de0d0d01589e633c9018f7082206e9bec61584e8..f3154849feff94be5a210c6ccb3dbd88e62dc8ed 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -3281,14 +3281,6 @@ change_window_heights (window, n)
 \f
 int window_select_count;
 
-Lisp_Object
-Fset_window_buffer_unwind (obuf)
-     Lisp_Object obuf;
-{
-  Fset_buffer (obuf);
-  return Qnil;
-}
-
 EXFUN (Fset_window_fringes, 4);
 EXFUN (Fset_window_scroll_bars, 4);
 
@@ -3407,16 +3399,12 @@ set_window_buffer (window, buffer, run_hooks_p, keep_margins_p)
      I doubt it's worth the trouble.  */
   windows_or_buffers_changed++;
 
-  /* We must select BUFFER for running the window-scroll-functions.
-     If WINDOW is selected, switch permanently.
-     Otherwise, switch but go back to the ambient buffer afterward.  */
-  if (EQ (window, selected_window))
-    Fset_buffer (buffer);
+  /* We must select BUFFER for running the window-scroll-functions.  */
   /* We can't check ! NILP (Vwindow_scroll_functions) here
      because that might itself be a local variable.  */
-  else if (window_initialized)
+  if (window_initialized)
     {
-      record_unwind_protect (Fset_window_buffer_unwind, Fcurrent_buffer ());
+      record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
       Fset_buffer (buffer);
     }