# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877589521 0
# Node ID 422958809490f1a9a617f6c1617ebb4162d13bbf
# Parent  a68db1ead5cf3a0d055d1f09cbf9bc37a3402864
(redisplay_window): If clip_changed, always run
window-scroll-functions.

diff -r a68db1ead5cf -r 422958809490 src/xdisp.c
--- a/src/xdisp.c	Thu Oct 23 06:44:15 1997 +0000
+++ b/src/xdisp.c	Thu Oct 23 06:52:01 1997 +0000
@@ -1917,6 +1917,11 @@
 	     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 @@
 	      || 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