changeset 20130:422958809490

(redisplay_window): If clip_changed, always run window-scroll-functions.
author Karl Heuer <kwzh@gnu.org>
date Thu, 23 Oct 1997 06:52:01 +0000
parents a68db1ead5cf
children 33fbdbaf65c2
files src/xdisp.c
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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