From 1bf0b42314f60132e64f64acfaeb854dd94f27fc Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 15 Oct 2015 05:15:40 +0200
Subject: [PATCH] fix, possible rng error if completion proposal count reached
 max value, + disable completion full length hint (until the font is properly
 scaled)

---
 src/ce_synmemo.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index fef76be2..b6c0569b 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -416,6 +416,7 @@ begin
   fCompletion.OnCodeCompletion:=@completionCodeCompletion;
   fCompletion.OnPaintItem:= @completionItemPaint;
   fCompletion.CaseSensitive:=false;
+  fCompletion.LongLineHintType:=sclpNone;
   //
   MouseLinkColor.Style:= [fsUnderline];
   with MouseActions.Add do begin
@@ -693,7 +694,10 @@ var
   lft, rgt: string;
   len: Integer;
 begin
-  // warning: '20' depends on ce_dcd, case knd of, string literals length
+  // empty items can be produced if completion list is too long
+  if aKey = '' then exit;
+  // otherwise always at least 20 chars but...
+  // ... '20' depends on ce_dcd, case knd of, string literals length
   result := true;
   lft := AKey[1 .. length(AKey)-20];
   rgt := AKey[length(AKey)-19 .. length(AKey)];