mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(Fmove_to_window_line): Skip past any partially visible first line.

Browse Source
This commit is contained in:
Miles Bader 2000-12-08 18:56:35 +00:00
parent df0677c365
commit 163784df97
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/window.c
View File

@ -4482,12 +4482,7 @@ displayed_window_lines (w)
int lines = (rest + CANON_Y_UNIT (f) - 1) / CANON_Y_UNIT (f);
it.vpos += lines;
}
#if 0
else if (it.current_y < height && bottom_y > height)
/* Partially visible line at the bottom. */
++it.vpos;
#endif
return it.vpos;
}
@ -4529,6 +4524,10 @@ zero means top of window, negative means relative to bottom of window.")
XSETINT (arg, XINT (arg) + lines);
}
if (w->vscroll)
/* Skip past a partially visible first line. */
XSETINT (arg, XINT (arg) + 1);
return Fvertical_motion (arg, window);
}