reimplement vi's 'h' movement, so that we only skip newline characters that immediately follow a non-newline

2025-09-21 21:36:59 +01:00
parent d63201ada7
commit cdc23945a5
5 changed files with 80 additions and 122 deletions
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -57,7 +57,7 @@ struct
  val viDlrForDelete = ViDlrDfa.nextForDelete

  val viL = ViLDfa.next
-  val viH = ViHlDfa.h
+  val viH = ViHDfa.prev

  fun helpGetCursorColumn (distanceFromLine, strList, lineList) =
    case (strList, lineList) of