From 9eac3cc4fe7231cd566d624c84c00a01b1ee989e Mon Sep 17 00:00:00 2001 From: malc Date: Fri, 26 Aug 2016 18:06:43 +0300 Subject: [PATCH] Fix vertical bar scrolling when maxfit is false --- main.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/main.ml b/main.ml index 68f27cb..4f75835 100644 --- a/main.ml +++ b/main.ml @@ -5693,7 +5693,9 @@ let scrollx x = let scrolly y = let s = float y /. float state.winh in - let desty = truncate (float (state.maxy - state.winh) *. s) in + let desty = truncate (float (state.maxy - + (if conf.maxhfit then state.winh else 0)) + *. s) in gotoxy_and_clear_text state.x desty; state.mstate <- Mscrolly; ;; -- 2.11.4.GIT