fed: Implement C and D (change/delete to end of line)

meithecatte · Mar 18, 2023 · fc5f85f · fc5f85f
1 parent 8cba8e0
commit fc5f85f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/files/fed.fth b/files/fed.fth
@@ -321,6 +321,8 @@ variable paste-linewise
   >> defop delete d bind normal
 : (change) (delete) is-linewise @ if insert-above else insert-mode then ;
   >> defop change c bind normal
+: delete-lend  delete lend ; >> char D bind normal
+: change-lend  change lend ; >> char C bind normal
 
 : paste-at ( b -- ) dup #paste @ make-space
   #paste @ 0 ?do i pb@ over i + b! loop drop ;