From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 23 Oct 1997 06:52:01 +0000 (+0000)
Subject: (redisplay_window): If clip_changed, always run
X-Git-Tag: emacs-20.3~2943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=abb4c08fef429bc1a1215cde869056bfe122e03e;p=emacs.git

(redisplay_window): If clip_changed, always run
window-scroll-functions.
---

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