fix forward search scroll bug

1 files changed, 1 insertions, 1 deletions

diff --git a/jterm.hs b/jterm.hs
index d63ee73..8b1700d 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -322,7 +322,7 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do
               (_, _, _, _, m, _, _) <- lift $ getGeometry display win
               let (height, width) = fontSize display font
                   pageheight = fromIntegral m `div` fromIntegral height
-              put $ b {cursor = (p, p + end - start), pos = max (pos b) $ R.lengthInLines (R.splitAt p (content b) & fst) -. pageheight + 1}
+              put $ b {cursor = (p, p + end - start), pos = max (pos b) $ R.lengthInLines (R.splitAt p (content b) & fst) + 1 -. pageheight}
             Nothing -> pure ()
         (0, 2) ->
           -- middle click down