From 19c716a71ba3659700c95481f5c5f7afb86d53c2 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 12 Oct 1995 18:00:00 +0000
Subject: (Fdelete_other_windows): Set w->force_start.

---
 src/window.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.1