From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Jan 1996 17:16:12 +0000 (+0000)
Subject: (Fset_window_buffer): Call the window-scroll-functions.
X-Git-Tag: emacs-19.34~1711
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dba06815c940f29cc9718c526e8a9cf40e47a446;p=emacs.git

(Fset_window_buffer): Call the window-scroll-functions.
---

diff --git a/src/window.c b/src/window.c
index 59ab7c53a9b..c3ed9928461 100644
--- a/src/window.c
+++ b/src/window.c
@@ -108,6 +108,8 @@ int next_screen_context_lines;
 static int sequence_number;
 
 #define min(a, b) ((a) < (b) ? (a) : (b))
+
+extern Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
 
 DEFUN ("windowp", Fwindowp, Swindowp, 1, 1, 0,
   "Returns t if OBJECT is a window.")
@@ -1864,7 +1866,7 @@ BUFFER can be a buffer or buffer name.")
   w->buffer = buffer;
   XSETFASTINT (w->window_end_pos, 0);
   w->window_end_valid = Qnil;
-  XSETFASTINT(w->hscroll, 0);
+  XSETFASTINT (w->hscroll, 0);
   Fset_marker (w->pointm,
 	       make_number (BUF_PT (XBUFFER (buffer))),
 	       buffer);
@@ -1877,6 +1879,9 @@ BUFFER can be a buffer or buffer name.")
   windows_or_buffers_changed++;
   if (EQ (window, selected_window))
     Fset_buffer (buffer);
+  if (! NILP (Vwindow_scroll_functions))
+    run_hook_with_args_2 (Qwindow_scroll_functions, window,
+			  Fmarker_position (w->start));
 
   return Qnil;
 }