add tests for 'yh' motion

2026-01-07 06:33:10 +00:00
parent adb8757ed8
commit 8b0031ca71
7 changed files with 136 additions and 11 deletions
--- a/fcore/normal-mode/normal-yank.sml
+++ b/fcore/normal-mode/normal-yank.sml
@@ -10,7 +10,7 @@ struct

      val buffer = LineGap.goToIdx (cursorIdx, buffer)
      val min = Cursor.vi0 (buffer, cursorIdx)
-      val low = Cursor.viH (buffer, cursorIdx, 1)
+      val low = Cursor.viH (buffer, cursorIdx, count)

      val low = Int.max (min, low)
      val length = cursorIdx - low