From afd9a865dc6e24c4b1a71a713ac3b299fd645d29 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sat, 6 Oct 2012 09:27:26 +0400
Subject: [PATCH] Fix delete behavior in presentation mode corner case

---
 main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index f42d0b6..f8a4adf 100644
--- a/main.ml
+++ b/main.ml
@@ -4964,7 +4964,7 @@ let viewkeyboard key mask =
       | l :: _ ->
           match conf.columns with
           | Csingle | Cmulti _ ->
-              if conf.presentation && l.pagey != 0
+              if conf.presentation && (l.pagey != 0 || l.pagedispy < 0)
               then
                 gotoy_and_clear_text (clamp (pgscale ~-(conf.winh)))
               else
-- 
2.11.4.GIT