delete 'nextMatch' function in search-list.sml, and refactor other code to use alternative function

2025-10-08 08:16:20 +01:00
parent 8941ce9f89
commit 3b823d7ae6
4 changed files with 10 additions and 4 deletions
--- a/fcore/normal-mode/normal-yank.sml
+++ b/fcore/normal-mode/normal-yank.sml
@@ -168,7 +168,7 @@ struct
  fun yankToNextMatch (app: app_type, count) =
    let
      val {cursorIdx, searchList, buffer, ...} = app
-      val high = SearchList.nextMatch (cursorIdx, searchList, count)
+      val high = PersistentVector.nextMatch (cursorIdx, searchList, count)
    in
      if high = ~1 orelse high <= cursorIdx then
        NormalFinish.clearMode app