Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dba06815
Commit
dba06815
authored
Jan 11, 1996
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fset_window_buffer): Call the window-scroll-functions.
parent
616db04b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
1 deletion
+6
-1
src/window.c
src/window.c
+6
-1
No files found.
src/window.c
View file @
dba06815
...
...
@@ -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
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment