From 2f2e93a276e94ba3a37e8fb0e4c4e671faee940f Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 13 Jan 2016 20:08:03 -0200
Subject: [PATCH] Allow ESC to dismiss the "Are you sure you want to clear..."
 dialog.

---
 source/ide/ide_methods.bas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 96e0f1bb4..ab67b25fb 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -6725,6 +6725,11 @@ DO 'main loop
         EXIT FUNCTION
     END IF
 
+    IF K$ = CHR$(27) THEN
+        ideclearhistory$ = "N"
+        EXIT FUNCTION
+    END IF
+
     'end of custom controls
     mousedown = 0
     mouseup = 0