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

bugfix: in search-list.sml's 'delRightFromHere' function, make sure we preserve the last part of the vector when finish < last

Browse Source
This commit is contained in:
Humza Shahid
2024-11-16 09:05:47 +00:00
parent 436b3e0d92
commit f2b4f256ec
3 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fcore/app-update.sml
View File

@@ -421,7 +421,7 @@ struct
(* delete char at cursor and then decrement cursorIdx by 1
* if cursorIdx is not 0 *)
val buffer = LineGap.delete (cursorIdx, 1, buffer)
val searchList = SearchList.delete (cursorIdx, 1, searchList)
val searchList = SearchList.delete (cursorIdx, 1, #searchString app, searchList)
val searchList = SearchList.mapFrom (cursorIdx, ~1, searchList)
val cursorIdx =
@@ -436,7 +436,7 @@ struct
else
let
val buffer = LineGap.delete (cursorIdx, 1, buffer)
val searchList = SearchList.delete (cursorIdx, 1, searchList)
val searchList = SearchList.delete (cursorIdx, 1, #searchString app, searchList)
val searchList = SearchList.mapFrom (cursorIdx, ~1, searchList)
in
helpRemoveChr (app, buffer, searchList, cursorIdx, count - 1)