reimplement search-range functionality to scan range from the string from left to right

2025-08-30 23:31:55 +01:00
parent de46376e4e
commit 2b3f0405c6
4 changed files with 627 additions and 114 deletions
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -69,7 +69,7 @@ struct
        let
          val buffer = #buffer app
          val buffer = LineGap.goToStart buffer
-          val searchString = "abba"
+          val searchString = "val "
          val searchList = SearchList.build (buffer, searchString)
          val buffer = LineGap.goToStart buffer
        in