mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-01-11 17:16:12 +00:00
parent 616db04b18
commit dba06815c9
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/window.c
View file

@ -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;
}