From 0a1f771ac2f5f2582470df8480fd2d7db3ec854e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Oct 1995 09:09:30 +0000 Subject: [PATCH] (window_scroll): Always set force_start. --- src/window.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)); -- 2.39.2