1645

1 files changed, 5 insertions, 1 deletions

diff --git a/edit.mu b/edit.mu
index 94a14537..4c63f1aa 100644
--- a/edit.mu
+++ b/edit.mu
@@ -295,19 +295,23 @@ recipe event-loop [
     loop-unless found?:boolean
     break-if quit?:boolean  # only in tests
     trace [app], [next-event]
+    # mouse clicks
     {
       t:address:touch-event <- maybe-convert e:event, touch:variant
       break-unless t:address:touch-event
       editor:address:editor-data <- move-cursor-in-editor editor:address:editor-data, t:address:touch-event/deref
       loop +next-event:label
     }
+    # typing regular characters
     {
       c:address:character <- maybe-convert e:event, text:variant
       break-unless c:address:character
       editor:address:editor-data <- insert-at-cursor editor:address:editor-data, c:address:character/deref
       loop +next-event:label
     }
-    assert c:address:character, [event was of unknown type; neither keyboard nor mouse]
+    # otherwise it's a special key to control the editor
+    k:address:number <- maybe-convert e:event, keycode:variant
+    assert k:address:number, [event was of unknown type; neither keyboard nor mouse]
     loop
   }
 ]