diff options
-rw-r--r-- | shell/gap-buffer.mu | 12 |
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 } |