(Fdelete_other_windows): Set w->force_start.

src/window.c

@@ -1543,6 +1543,9 @@ value is reasonable when this function is called.")
       w->start_at_line_beg = ((pos.bufpos == BEGV
 			       || FETCH_CHAR (pos.bufpos - 1) == '\n') ? Qt
 			      : Qnil);
+      /* We need to do this, so that the window-scroll-functions
+	 get called.  */
+      w->force_start = Qt;
 
       set_buffer_internal (obuf);
     }
@@ -2548,7 +2551,7 @@ window_scroll (window, n, noerror)
   Lisp_Object bolp, nmoved;
 
   /* Always set force_start so that redisplay_window will run
-     thw window-start-functions.  */
+     thw window-scroll-functions.  */
   w->force_start = Qt;
 
   XSETFASTINT (tem, PT);