From abb4c08fef429bc1a1215cde869056bfe122e03e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 23 Oct 1997 06:52:01 +0000 Subject: [PATCH] (redisplay_window): If clip_changed, always run window-scroll-functions. --- src/xdisp.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/xdisp.c b/src/xdisp.c index b7c0c274c1f..933cff33848 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -1917,6 +1917,11 @@ redisplay_window (window, just_this_one, preserve_echo_area) if (WINDOW_FULL_WIDTH_P (w)) preserve_my_columns (w); */ + if (current_buffer->clip_changed + && ! NILP (Vwindow_scroll_functions)) + run_hook_with_args_2 (Qwindow_scroll_functions, window, + make_number (marker_position (w->start))); + goto done; } /* Don't bother trying redisplay with same start; @@ -1981,6 +1986,12 @@ redisplay_window (window, just_this_one, preserve_echo_area) || beg_unchanged < startp) /* Forget any recorded base line for line number display. */ w->base_line_number = Qnil; + + if (current_buffer->clip_changed + && ! NILP (Vwindow_scroll_functions)) + run_hook_with_args_2 (Qwindow_scroll_functions, window, + make_number (marker_position (w->start))); + goto done; } else -- 2.39.2