handle edge case in searching: when we look for 'abba' in the text 'abbabba', it looks like we should have two matches, but to be consistent with other programs, we only have one match

2025-08-30 17:16:02 +01:00
parent 9051717213
commit 0647589f13
3 changed files with 66 additions and 16 deletions
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -69,7 +69,7 @@ struct
        let
          val buffer = #buffer app
          val buffer = LineGap.goToEnd buffer
-          val searchString = "val "
+          val searchString = "abba"
          val searchList = SearchList.build (buffer, searchString)
          val buffer = LineGap.goToStart buffer
        in