repace usage of 'Cursor.toNextChr' with 'Cursor.toNextChrNew' ins make-normal-delete.sml

fcore/normal-mode/make-normal-delete.sml

@@ -148,7 +148,9 @@ struct
             end
         else
           let
-            val newCursorIdx = Cursor.toNextChr (buffer, cursorIdx, #"\n")
+            val newCursorIdx =
+              Cursor.toNextChrNew
+                (buffer, cursorIdx, {findChr = #"\n", count = 1})
           in
             if newCursorIdx >= #textLength buffer - 2 then
               finishAfterDeletingBuffer (app, cursorIdx, buffer, time, [])
@@ -178,7 +180,9 @@ struct
       else
         let
           val buffer = LineGap.goToIdx (cursorIdx, buffer)
-          val newCursorIdx = Cursor.toNextChr (buffer, cursorIdx, #"\n")
+          val newCursorIdx =
+            Cursor.toNextChrNew
+              (buffer, cursorIdx, {findChr = #"\n", count = 1})
           val buffer = LineGap.goToIdx (newCursorIdx, buffer)
         in
           if
@@ -976,7 +980,7 @@ struct
       val start = Int.max (cursorIdx - 1, 0)
       val buffer = LineGap.goToIdx (start, buffer)
 
-      val high = Cursor.toNextChr (buffer, start, chr)
+      val high = Cursor.toNextChrNew (buffer, start, {findChr = chr, count = 1})
       val buffer = LineGap.goToIdx (high, buffer)
       val origLow = Cursor.matchPair (buffer, high)
     in
@@ -1020,7 +1024,7 @@ struct
       val start = Int.max (cursorIdx - 1, 0)
       val buffer = LineGap.goToIdx (start, buffer)
 
-      val high = Cursor.toNextChr (buffer, start, chr)
+      val high = Cursor.toNextChrNew (buffer, start, {findChr = chr, count = 1})
       val buffer = LineGap.goToIdx (high, buffer)
       val low = Cursor.matchPair (buffer, high)
     in