diff options
-rw-r--r-- | src/window.c | 5 |
1 files changed, 4 insertions, 1 deletions
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); |