make DFA for vi next WORD motion, still passing tests

2025-07-20 09:12:23 +01:00
parent aa068ea48e
commit 25fb8bfc5e
4 changed files with 121 additions and 2 deletions
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -886,8 +886,7 @@ struct
    toNextWord (lineGap, cursorIdx, helpNextWord)

  (* equivalent of vi's 'W' command *)
-  fun nextWORD (lineGap, cursorIdx) =
-    toNextWord (lineGap, cursorIdx, helpNextWORD)
+  val nextWORD = ViWORDDfa.nextWORD

  fun helpPrevWord (strPos, str, absIdx, strTl, lineTl) =
    if strPos < 0 then