(Fdelete_other_windows): Set w->force_start.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/window.c b/src/window.c
index 2b3e88b55d6..2896c2224b3 100644
--- a/src/window.c
+++ b/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);