add a few additional motions to be parsed by yank

2025-09-02 03:07:50 +01:00
parent 298cec88b3
commit ea38e95e6b
2 changed files with 3 additions and 2 deletions
--- a/fcore/normal-mode/normal-mode.sml
+++ b/fcore/normal-mode/normal-mode.sml
@@ -268,6 +268,8 @@ struct
        let val f = fn (buffer, cursorIdx, _) => Cursor.vi0 (buffer, cursorIdx)
        in yankWhenMovingBack (app, f, 1)
        end
+    | #"w" => yankWhenMovingForward (app, Cursor.nextWord, count)
+    | #"W" => yankWhenMovingForward (app, Cursor.nextWORD, count)
    | _ => app

  fun parseYank (strPos, str, count, app, chrCmd, time) =