From bb6a74501ba7e97f40fcdc3637861bb317f1b7e9 Mon Sep 17 00:00:00 2001
From: sakurawald <sakurawald@gmail.com>
Date: Mon, 9 Dec 2024 01:42:36 +0800
Subject: [PATCH] fix: make the ctrl-[ the sym key to escape key.

---
 frontends/sdl2/keyboard.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/frontends/sdl2/keyboard.lisp b/frontends/sdl2/keyboard.lisp
index 485b32d30..4353465bf 100644
--- a/frontends/sdl2/keyboard.lisp
+++ b/frontends/sdl2/keyboard.lisp
@@ -59,6 +59,12 @@
                        :super super
                        :shift shift
                        :sym "Tab"))
+        ((and ctrl (equal sym "["))
+         (lem:make-key :ctrl nil
+                       :meta meta
+                       :super super
+                       :shift shift
+                       :sym "Escape"))
         ((and ctrl (equal sym "m"))
          (lem:make-key :ctrl nil
                        :meta meta