From e36e4c39a00f3a857316745d216ca72bb3e4b660 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 22 Mar 2015 10:38:44 +0100
Subject: [PATCH] fix, AV on closequery, sheet was not freed if <> current doc

---
 src/ce_editor.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index e77574b6..c39d4a11 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -177,10 +177,12 @@ procedure TCEEditorWidget.docClosing(aDoc: TCESynMemo);
 var
   sheet: TWinControl;
 begin
-  if fDoc <> aDoc then exit;
-  sheet := fDoc.Parent;
-  fDoc.Parent := nil;
-  fDoc := nil;
+  if aDoc = nil then
+    exit;
+  sheet := aDoc.Parent;
+  aDoc.Parent := nil;
+  if aDoc = fDoc then
+    fDoc := nil;
   if sheet <> nil then sheet.Free;
   updateImperative;
 end;