diff --git a/fcore/app-update.sml b/fcore/app-update.sml
index 36ffb16..83f3fb8 100644
--- a/fcore/app-update.sml
+++ b/fcore/app-update.sml
@@ -591,14 +591,25 @@ struct
           | RESIZE_EVENT (width, height) => 
               resizeText (app, width, height))
       | #"d" => 
-          (* todo: delete whole line *)
+          (* delete whole line *)
           clearMode app
       | #"f" => 
-          (* todo: delete to chr, forwards *)
-          clearMode app
+          (case newCmd of
+            CHAR_EVENT chr =>
+              deleteToChr (app, count, Cursor.toNextChr, op+, chr)
+          | KEY_ESC =>
+              clearMode app
+          | RESIZE_EVENT (width, height) => 
+              resizeText (app, width, height))
       | #"F" => 
-          (* todo: delete to chr, backwards *)
-          clearMode app
+          (* delete to chr, backwards *)
+          (case newCmd of
+            CHAR_EVENT chr =>
+              deleteToChr (app, count, Cursor.toPrevChr, op-, chr)
+          | KEY_ESC =>
+              clearMode app
+          | RESIZE_EVENT (width, height) => 
+              resizeText (app, width, height))
       | #"g" => 
           (* todo: same events as handleGo *)
           clearMode app
diff --git a/shf b/shf
index 5c47bd1..d224c1b 100755
Binary files a/shf and b/shf differ