From: Eli Zaretskii Date: Tue, 29 Mar 2011 19:58:13 +0000 (+0200) Subject: Fix off-by-one in scroll down aggressively. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~444^2~1 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=492001e973aa9cbd43f213d12b9ea2717b306b9b;p=emacs.git Fix off-by-one in scroll down aggressively. src/xdisp.c (try_scrolling): When scrolling down aggressively, scroll one screen line less, to make sure we end up at the margin for fractions close to 1. --- diff --git a/src/ChangeLog b/src/ChangeLog index cb9096a5a5c..dda98bc73a7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2011-03-29 Eli Zaretskii + + * xdisp.c (try_scrolling): When scrolling down aggressively, + scroll one screen line less, to make sure we end up at the margin + for fractions close to 1. + 2011-03-28 Eli Zaretskii * xdisp.c (try_scrolling): When point is above the window, allow diff --git a/src/xdisp.c b/src/xdisp.c index 871d070ed31..7983c118134 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -13212,7 +13212,8 @@ try_scrolling (Lisp_Object window, int just_this_one_p, amount_to_scroll = float_amount; if (amount_to_scroll == 0 && float_amount > 0) amount_to_scroll = 1; - amount_to_scroll -= this_scroll_margin - dy; + amount_to_scroll -= + this_scroll_margin - dy - FRAME_LINE_HEIGHT (f); /* Don't let point enter the scroll margin near bottom of the window. */ if (amount_to_scroll > height - 2*this_scroll_margin + dy)