implement escape sequences for regex

2025-10-06 21:44:57 +01:00
parent 0bcb3e1dfc
commit cc5c0bf95c
4 changed files with 43 additions and 68 deletions
--- a/fcore/normal-mode/normal-search-mode.sml
+++ b/fcore/normal-mode/normal-search-mode.sml
@@ -5,9 +5,7 @@ struct
  open MailboxType

  fun buildTempSearchList (searchString, buffer, cursorIdx) =
-    let val unescapedString = EscapeString.unescape searchString
-    in SearchList.buildRange (buffer, unescapedString, cursorIdx + 1111)
-    end
+    SearchList.buildRange (buffer, searchString, cursorIdx + 1111)

  fun addChr
    (app: app_type, searchString, searchCursorIdx, searchScrollColumn, chr) =
@@ -66,7 +64,6 @@ struct
        } = app

      val buffer = LineGap.goToStart buffer
-      val searchString = EscapeString.unescape searchString
      val initialMsg = [SEARCH (buffer, searchString, time)]

      (* move LineGap to first line displayed on screen *)