From f6eae34679d4ed088e10992db7f1b0f95202cc63 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 17 Sep 2015 02:57:54 +0200
Subject: [PATCH] increased idle timer frequency for ast rescan

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

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 24baecb7..40d02b2d 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -112,6 +112,7 @@ type
     function getAstHandle: TAstHandle;
     function getMouseFileBytePos: Integer;
     procedure changeNotify(Sender: TObject);
+    procedure editedNotify(Sender: TSynEditStrings;aLinePos, aBytePos, aCount, aLineBrkCnt: Integer; aText: string);
     procedure identifierToD2Syn;
     procedure saveCache;
     procedure loadCache;
@@ -374,7 +375,7 @@ begin
   begin
     fAst := newAST(self, @astScanned);
     fAstTimer := TIdleTimer.Create(self);
-    fAstTimer.Interval:= 2000;
+    fAstTimer.Interval:= 200;
     fAstTimer.OnTimer:= @AstTimerEvent;
     fAstTimer.Enabled:=true;
     fAstTimer.AutoEnabled:=true;
@@ -437,6 +438,7 @@ begin
   fFilename := '<new document>';
   fModified := false;
   TextBuffer.AddNotifyHandler(senrUndoRedoAdded, @changeNotify);
+  //TextBuffer.AddEditHandler(@editedNotify);
   //
   fPositions := TCESynMemoPositions.create(self);
   fMultiDocSubject := TCEMultiDocSubject.create;
@@ -789,6 +791,11 @@ begin
   subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self);
 end;
 
+procedure TCESynMemo.editedNotify(Sender: TSynEditStrings;aLinePos, aBytePos, aCount, aLineBrkCnt: Integer; aText: string);
+begin
+  fCanScan := true;
+end;
+
 procedure TCESynMemo.loadFromFile(const aFilename: string);
 var
   ext: string;