shell: ctrl-a/e

1 files changed, 12 insertions, 0 deletions

diff --git a/shell/gap-buffer.mu b/shell/gap-buffer.mu
index 616500b0..394ec358 100644
--- a/shell/gap-buffer.mu
+++ b/shell/gap-buffer.mu
@@ -771,6 +771,18 @@ fn edit-gap-buffer self: (addr gap-buffer), key: grapheme {
     var dummy/eax: grapheme <- gap-right self
     return
   }
+  {
+    compare g, 1/ctrl-a
+    break-if-!=
+    gap-to-start self
+    return
+  }
+  {
+    compare g, 5/ctrl-e
+    break-if-!=
+    gap-to-end self
+    return
+  }
   # default: insert character
   add-grapheme-at-gap self, g
 }