Commit 0a1f771a authored by Richard M. Stallman's avatar Richard M. Stallman

(window_scroll): Always set force_start.

parent cce2176a
......@@ -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));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment