# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812711370 0
# Node ID 960db92441d8409b3279ba047cade3705539fb3b
# Parent  32381faf14892b4a4de12494a0b9e482e2f4c5b5
(window_scroll): Always set force_start.

diff -r 32381faf1489 -r 960db92441d8 src/window.c
--- a/src/window.c	Sun Oct 01 21:31:09 1995 +0000
+++ b/src/window.c	Tue Oct 03 09:09:30 1995 +0000
@@ -2549,6 +2549,10 @@
   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 @@
       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));