add tests for 'dgg' motion

This commit is contained in:
2025-10-15 15:06:04 +01:00
parent 4c8f588ce9
commit 82c1d48c6f
2 changed files with 117 additions and 1 deletions

View File

@@ -72,7 +72,6 @@ struct
finishAfterDeletingBuffer (app, startIdx, buffer, time, initialMsg)
end
(* equivalent of vi's 'x' command **)
fun removeChr (app: app_type, count, time) =
let
@@ -727,6 +726,11 @@ struct
val initialMsg = Fn.initMsgs (0, cursorIdx, buffer)
val buffer = LineGap.delete (0, cursorIdx, buffer)
val buffer =
if #textLength buffer = 0 then
LineGap.fromString "\n"
else
buffer
val buffer = LineGap.goToStart buffer
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg