From dba06815c940f29cc9718c526e8a9cf40e47a446 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 11 Jan 1996 17:16:12 +0000 Subject: [PATCH] (Fset_window_buffer): Call the window-scroll-functions. --- src/window.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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; } -- 2.39.2