From 6472ede4b038ccc6154b7249f199c714df0b5883 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 2 Mar 2024 16:11:13 +0100
Subject: [PATCH] - [TUI] added 'C-g' keybinding to close the blocking dialog
 window.

---
 src/line-oriented-window.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/line-oriented-window.lisp b/src/line-oriented-window.lisp
index 4d24a93..cacbd55 100644
--- a/src/line-oriented-window.lisp
+++ b/src/line-oriented-window.lisp
@@ -548,7 +548,8 @@ will fire the `callback' function (with the selected field from `all-fields'
       (draw)
       (loop named inner
          for c = (tui:decode-key-event (c:get-wide-event low-level-window))
-         while (string/= c "q")
+            while (and (string/= c "q")
+                       (string/= c "^G"))
             do
            (cond
              ((string= c :key-arrow-up)