add functions to yank to end-of-previous-character, and to yank from current line to start of buffer

2025-09-05 23:46:10 +01:00
parent 367e691349
commit 76e14ea491
3 changed files with 46 additions and 7 deletions
--- a/fcore/cursor-dfa/vi-caps-word-dfa.sml
+++ b/fcore/cursor-dfa/vi-caps-word-dfa.sml
@@ -68,7 +68,7 @@ struct
         val startState = startState

         structure Folder =
-           MakeCharFolderNext
+           MakeCharFolderPrev
             (struct
                val startState = startState
                val tables = tables
@@ -78,7 +78,7 @@ struct
                  currentState = nonBlankAfterSpaceState
              end)

-         val fStart = Folder.foldNext
+         val fStart = Folder.foldPrev
       end)

  structure StartOfCurrentWORDFolder =