From d093e8dea3e2bb643a796d899c4bce29ba80bad1 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Sun, 2 Nov 2025 09:31:21 -0500
Subject: [PATCH] Make "Esc" close agenda-mode window.

---
 scripts/tkremind.in | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index cc03d417..a5946d9a 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -4725,6 +4725,7 @@ proc MakeTodaysRemindersWindow { w date } {
     bind $w <KeyPress-Prior> "$w.prev flash; $w.prev invoke"
     bind $w <KeyPress-Next> "$w.next flash; $w.next invoke"
     bind $w <KeyPress-Home> "$w.today flash; $w.today invoke"
+    bind $w <KeyPress-Escape> "$w.ok flash; $w.ok invoke"
     catch { bind $w <KeyPress-KP_Prior> "$w.prev flash; $w.prev invoke" }
     catch { bind $w <KeyPress-KP_Next> "$w.next flash; $w.next invoke" }
     catch { bind $w <KeyPress-KP_Left> "$w.prev flash; $w.prev invoke" }