reimplemented vi's 'B' command (although it needs a little refactoring)

2025-07-20 13:09:21 +01:00
parent cf15077480
commit 6b5a95ff45
2 changed files with 54 additions and 5 deletions
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -1038,8 +1038,7 @@ struct
    toPrevWord (lineGap, cursorIdx, helpPrevWord)

  (* equivalent of vi's 'B' command *)
-  fun prevWORD (lineGap, cursorIdx) =
-    toPrevWord (lineGap, cursorIdx, helpPrevWORD)
+  val prevWORD = ViWORDDfa.startOfCurrentWORD

  fun toEndOfPrevWord (lineGap: LineGap.t, cursorIdx, fPrev) =
    let