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

add minimal modifications to implementation of 'dge' motion, so that failing test for 'dge' motion passes

Browse Source
This commit is contained in:
Humza Shahid
2025-10-13 22:08:33 +01:00
parent 8e56eb7628
commit be7a9b3035
1 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
fcore/normal-mode/make-normal-delete.sml
View File

@@ -373,6 +373,9 @@ struct
end end
fun deleteToEndOfPrevWord (app: app_type, count, time) = fun deleteToEndOfPrevWord (app: app_type, count, time) =
if #cursorIdx app = 0 then
NormalFinish.clearMode app
else
let let
val {buffer, cursorIdx, ...} = app val {buffer, cursorIdx, ...} = app
@@ -385,6 +388,9 @@ struct
end end
fun deleteToEndOfPrevWORD (app: app_type, count, time) = fun deleteToEndOfPrevWORD (app: app_type, count, time) =
if #cursorIdx app = 0 then
NormalFinish.clearMode app
else
let let
val {buffer, cursorIdx, ...} = app val {buffer, cursorIdx, ...} = app