From d735d0088c2a933f2fc41ae76576b9b958ee58b2 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 16 Apr 2019 19:36:56 +0200
Subject: [PATCH] Don't prompt to save an empty query tab. Closes #614.

---
 source/main.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/source/main.pas b/source/main.pas
index f932a086..053a748a 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6045,7 +6045,16 @@ end;
 
 procedure TMainForm.SynMemoQueryStatusChange(Sender: TObject; Changes:
     TSynStatusChanges);
+var
+  Edit: TSynMemo;
 begin
+  // Don't ask for saving empty contents. See issue #614
+  Edit := Sender as TSynMemo;
+  if Edit.GetTextLen = 0 then begin
+    ActiveQueryTab.MemoFilename := '';
+    ActiveQueryTab.Memo.Modified := False;
+  end;
+  // Update various controls
   ValidateQueryControls(Sender);
   UpdateLineCharPanel;
 end;