From 74f1fb77abdd4ac0a6443cb5c9e4ef389b7c6284 Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Tue, 2 Sep 2025 03:13:01 +0100 Subject: [PATCH] parse a few additional motions for yanking --- fcore/normal-mode/normal-mode.sml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/fcore/normal-mode/normal-mode.sml b/fcore/normal-mode/normal-mode.sml index 402b80a..a42a7f9 100644 --- a/fcore/normal-mode/normal-mode.sml +++ b/fcore/normal-mode/normal-mode.sml @@ -200,7 +200,6 @@ struct | #"a" => parseDeleteAround (app, chrCmd, time) | _ => NormalFinish.clearMode app - fun yankWhenMovingBack (app: app_type, fMove, count) = let open DrawMsg @@ -270,6 +269,10 @@ struct end | #"w" => yankWhenMovingForward (app, Cursor.nextWord, count) | #"W" => yankWhenMovingForward (app, Cursor.nextWORD, count) + | #"b" => yankWhenMovingBack (app, Cursor.prevWord, count) + | #"B" => yankWhenMovingBack (app, Cursor.prevWORD, count) + | #"e" => yankWhenMovingForward (app, Cursor.endOfWordForDelete, count) + | #"E" => yankWhenMovingForward (app, Cursor.endOfWORDForDelete, count) | _ => app fun parseYank (strPos, str, count, app, chrCmd, time) =