From 7510b420313406dfa8a99bc604c1c7335caf76c7 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 28 Mar 2015 19:52:41 +0100
Subject: [PATCH] improved completion, update menu after each keystroke

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

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index c39d4a11..a16af007 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -298,6 +298,8 @@ procedure TCEEditorWidget.focusedEditorChanged;
 begin
   if fDoc = nil then exit;
   //
+  fSyncEdit.Clear;
+  macRecorder.Clear;
   macRecorder.Editor := fDoc;
   fSyncEdit.Editor := fDoc;
   completion.Editor := fDoc;
@@ -417,6 +419,8 @@ begin
     editorStatus.Panels[0].Text := format('%d : %d | %d', [fDoc.CaretY, fDoc.CaretX, fDoc.SelEnd - fDoc.SelStart]);
     editorStatus.Panels[1].Text := modstr[fDoc.modified];
     editorStatus.Panels[2].Text := fDoc.fileName;
+    //
+    if completion.IsActive then getCompletionList;
   end;
 end;