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

replace redundant code (which matched semantics of a newly added function) with a function call.

Browse Source
This commit is contained in:
Humza Shahid
2025-09-06 03:07:01 +01:00
parent 0dede58ca0
commit 5bfafe3987
1 changed files with 1 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
fcore/normal-mode/normal-delete.sml
View File

@@ -26,18 +26,7 @@ struct
(* equivalent of vi's 'x' command **) (* equivalent of vi's 'x' command **)
fun helpRemoveChr (app: app_type, buffer, cursorIdx, count, time) = fun helpRemoveChr (app: app_type, buffer, cursorIdx, count, time) =
if count = 0 then if count = 0 then
let finishAfterDeletingBuffer (app, cursorIdx, buffer, time)
val searchString = #searchString app
val buffer = LineGap.goToStart buffer
val initialMsg = [SEARCH (buffer, searchString)]
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val searchList =
SearchList.buildRange (buffer, searchString, cursorIdx + 1111)
in
NormalFinish.buildTextAndClear
(app, buffer, cursorIdx, searchList, initialMsg, time)
end
else else
let let
val buffer = LineGap.goToIdx (cursorIdx, buffer) val buffer = LineGap.goToIdx (cursorIdx, buffer)