diff options
author | Justin Bedo <cu@cua0.org> | 2024-10-18 12:20:50 +1100 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2024-10-18 12:21:05 +1100 |
commit | a2ee9d0cbfa365315ccfae15a7545d1824ee89b5 (patch) | |
tree | cbadc9d5ce160bd047d656c0750601caf4c9c94a /jterm.hs | |
parent | 18429e70cbcbfdcfb9d4a97e1066adc7c90187cd (diff) |
fix forward search scroll bug
Diffstat (limited to 'jterm.hs')
-rw-r--r-- | jterm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |