add function to yank inside WORD

2025-09-06 01:15:45 +01:00
parent 73ec4e7578
commit 58e74afffb
4 changed files with 562 additions and 1 deletions
--- a/fcore/normal-mode/normal-mode.sml
+++ b/fcore/normal-mode/normal-mode.sml
@@ -296,8 +296,8 @@ struct
    fun parseYankInside (app, chr) =
      case chr of
        #"w" => NormalYank.yankInsideWord app
+      | #"W" => NormalYank.yankInsideWORD app
      (*
-      | #"W" => NormalDelete.deleteInsideWORD app
      | #"(" => NormalDelete.deleteInsideChrOpen (app, chr)
      | #"[" => NormalDelete.deleteInsideChrOpen (app, chr)
      | #"{" => NormalDelete.deleteInsideChrOpen (app, chr)