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
8646118f
Commit
8646118f
authored
Aug 10, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fwindow_end): Undo previous change.
parent
7fa36802
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
7 deletions
+11
-7
src/window.c
src/window.c
+11
-7
No files found.
src/window.c
View file @
8646118f
...
...
@@ -489,12 +489,8 @@ DEFUN ("window-start", Fwindow_start, Swindow_start, 0, 1, 0,
return
Fmarker_position
(
decode_window
(
window
)
->
start
);
}
DEFUN
(
"window-end"
,
Fwindow_end
,
Swindow_end
,
0
,
1
,
0
,
"Return position at which display currently ends in WINDOW.
\n
\
This is updated by redisplay, when it runs to completion.
\n
\
Simply changing the buffer text or setting `window-start'
\n
\
does not update this value.
\n
\
\n
\
/* This is text temporarily removed from the doc string below.
This function returns nil if the position is not currently known.\n\
That happens when redisplay is preempted and doesn't finish.\n\
If in that case you want to compute where the end of the window would\n\
...
...
@@ -502,7 +498,13 @@ have been if redisplay had finished, do this:\n\
(save-excursion\n\
(goto-char (window-start window))\n\
(vertical-motion (1- (window-height window)) window)\n\
(point))"
)
(point))") */
DEFUN
(
"window-end"
,
Fwindow_end
,
Swindow_end
,
0
,
1
,
0
,
"Return position at which display currently ends in WINDOW.
\n
\
This is updated by redisplay, when it runs to completion.
\n
\
Simply changing the buffer text or setting `window-start'
\n
\
does not update this value."
)
(
window
)
Lisp_Object
window
;
{
...
...
@@ -513,12 +515,14 @@ have been if redisplay had finished, do this:\n\
buf
=
w
->
buffer
;
CHECK_BUFFER
(
buf
,
0
);
#if 0 /* This change broke some things. We should make it later. */
/* If we don't know the end position, return nil.
The user can compute it with vertical-motion if he wants to.
It would be nicer to do it automatically,
but that's so slow that it would probably bother people. */
if (NILP (w->window_end_valid))
return Qnil;
#endif
XSET
(
value
,
Lisp_Int
,
BUF_Z
(
XBUFFER
(
buf
))
-
XFASTINT
(
w
->
window_end_pos
));
...
...
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