humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove 'searchString' field from app_type, because the same role is fulfilled by new 'dfa' field

Browse Source
This commit is contained in:
Humza Shahid
2025-10-08 05:40:29 +01:00
parent df346d0a9e
commit 06106f5de8
9 changed files with 46 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fcore/normal-mode/normal-mode.sml
View File

@@ -31,9 +31,9 @@ struct
let
open MailboxType
val {cursorIdx = origCursorIdx, searchString, ...} = app
val {cursorIdx = origCursorIdx, ...} = app
val buffer = LineGap.goToStart buffer
val initialMsg = [SEARCH (buffer, searchString, time)]
val initialMsg = [SEARCH (buffer, raise Fail "searchString", time)]
in
NormalDelete.finishAfterDeletingBuffer
(app, origCursorIdx, buffer, time, initialMsg)
@@ -94,7 +94,7 @@ struct
let
open MailboxType
val {cursorIdx, buffer, searchString, ...} = app
val {cursorIdx, buffer, ...} = app
val buffer = LineGap.goToIdx (cursorIdx, buffer)
val lineStart = Cursor.vi0 (buffer, cursorIdx)
@@ -127,7 +127,7 @@ struct
loop (nextLine, buffer, count - 1)
val buffer = LineGap.goToStart buffer
val initialMsg = [SEARCH (buffer, searchString, time)]
val initialMsg = [SEARCH (buffer, raise Fail "searchString", time)]
in
NormalDelete.finishAfterDeletingBuffer
(app, newCursorIdx, buffer, time, initialMsg)