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

2025-10-13 22:08:33 +01:00
parent 8e56eb7628
commit be7a9b3035
1 changed files with 22 additions and 16 deletions
--- a/fcore/normal-mode/make-normal-delete.sml
+++ b/fcore/normal-mode/make-normal-delete.sml
@@ -373,6 +373,9 @@ struct
    end

  fun deleteToEndOfPrevWord (app: app_type, count, time) =
+    if #cursorIdx app = 0 then
+      NormalFinish.clearMode app
+    else
      let
        val {buffer, cursorIdx, ...} = app

@@ -385,6 +388,9 @@ struct
      end

  fun deleteToEndOfPrevWORD (app: app_type, count, time) =
+    if #cursorIdx app = 0 then
+      NormalFinish.clearMode app
+    else
      let
        val {buffer, cursorIdx, ...} = app