From d845d1ce3de293cfa060828da542447fb739ca07 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 31 May 2017 11:12:24 +0200
Subject: [PATCH] fix #152 - Code completion doesn't automatically close after
 deleting

---
 src/ce_synmemo.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index bb84b350..06e12a17 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -201,6 +201,7 @@ type
     procedure setDDocDelay(value: Integer);
     procedure setAutoDotDelay(value: Integer);
     procedure completionExecute(sender: TObject);
+    procedure completionDeleteKey(sender: TObject);
     procedure getCompletionList;
     procedure completionFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer;
@@ -748,6 +749,7 @@ begin
   fCompletion.OnExecute:= @completionExecute;
   fCompletion.OnCodeCompletion:=@completionCodeCompletion;
   fCompletion.OnPaintItem:= @completionItemPaint;
+  fCompletion.OnKeyDelete:= @completionDeleteKey;
   fCompletion.TheForm.OnKeyDown:= @completionFormKeyDown;
   fCompletion.CaseSensitive:=true;
   TStringList(fCompletion.ItemList).CaseSensitive:=true;
@@ -2064,6 +2066,14 @@ begin
   getCompletionList;
 end;
 
+procedure TCESynMemo.completionDeleteKey(sender: TObject);
+var
+  e: string;
+begin
+  if fCompletion.CurrentString.length < 2 then
+    fCompletion.TheForm.Close;
+end;
+
 procedure TCESynMemo.getCompletionList;
 var
   i: integer;