From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Oct 1995 09:09:30 +0000 (+0000)
Subject: (window_scroll): Always set force_start.
X-Git-Tag: emacs-19.34~2758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a1f771ac2f5f2582470df8480fd2d7db3ec854e;p=emacs.git

(window_scroll): Always set force_start.
---

diff --git a/src/window.c b/src/window.c
index 8dd05a14dc0..1a506767460 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2549,6 +2549,10 @@ window_scroll (window, n, noerror)
   int lose;
   Lisp_Object bolp, nmoved;
 
+  /* Always set force_start so that redisplay_window will run
+     thw window-start-functions.  */
+  w->force_start = Qt;
+
   XSETFASTINT (tem, PT);
   tem = Fpos_visible_in_window_p (tem, window);
 
@@ -2557,7 +2561,6 @@ window_scroll (window, n, noerror)
       Fvertical_motion (make_number (- (ht / 2)), window);
       XSETFASTINT (tem, PT);
       Fset_marker (w->start, tem, w->buffer);
-      w->force_start = Qt;
     }
 
   SET_PT (marker_position (w->start));