From addf47ba5b89cc10a558ce425fa4025a1db7af94 Mon Sep 17 00:00:00 2001 From: malc Date: Mon, 15 Oct 2012 22:59:38 +0400 Subject: [PATCH] Fix delete behavior in multi column with coverB case --- main.ml | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/main.ml b/main.ml index f8f1aed..3fba6f9 100644 --- a/main.ml +++ b/main.ml @@ -4989,8 +4989,13 @@ let viewkeyboard key mask = else let pageno = max 0 (l.pageno-1) in gotoy_and_clear_text (getpagey pageno) - | Cmulti ((c, _, _), _) -> - let pageno = max 0 (l.pageno-c) in + | Cmulti ((c, _, coverB), _) -> + let decr = + if l.pageno = state.pagecount - coverB + then 1 + else c + in + let pageno = max 0 (l.pageno-decr) in gotoy_and_clear_text (getpagey pageno) | Csplit (n, _) -> let y = -- 2.11.4.GIT