Fix scrolling

* src/window.c (scroll_command): Fix scrolling.

diff --git a/src/window.c b/src/window.c
index 20f6862e3b4925fa4df2daa4faa9705b74f70496..8d1aed46dff6764a30e8436c324558847127c188 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -5654,7 +5654,7 @@ scroll_command (Lisp_Object window, Lisp_Object n, int direction)
 
   /* If given window's buffer isn't current, make it current for
      the moment.  But don't screw up if window_scroll gets an error.  */
-  if (XBUFFER (w->contents) != current_buffer)
+  if (other_window || XBUFFER (w->contents) != current_buffer)
     {
       record_unwind_protect_excursion ();
       Fset_buffer (w->contents);