seems like 'NormalYankDelete' functions need to yank one character more than the deletion range, so implement that, and make note to add tests for that module

2026-01-23 21:08:12 +00:00
parent 8b46f1edfc
commit faa15866f8
3 changed files with 2 additions and 1 deletions
--- a/fcore/normal-mode/normal-yank-delete.sml
+++ b/fcore/normal-mode/normal-yank-delete.sml
@@ -6,7 +6,7 @@ structure NormalYankDelete =

       fun initMsgs (low, length, buffer) =
         let
-           val str = LineGap.substring (low, length, buffer)
+           val str = LineGap.substring (low, length + 1, buffer)
           val msg = YANK str
         in
           [DRAW msg]