anchor.diff:    if an=nil then exit;
     if an.Formats.Count=0 then exit;
   
  +  if LexersAsked.IndexOf(an)>=0 then exit;
  +  LexersAsked.Add(an);
  +
     //work for sublexers
     for i:= 0 to an.SubAnalyzers.Count-1 do
       if Assigned(an.SubAnalyzers[i]) then
  
positive.code:   ListLex.Items.EndUpdate;
  end;
  
  end.
  
  
negative.code: 
  const
    cSectionMap = 'map';
  var
    LexersAsked: TList = nil;
  
  
  procedure DoStyleAssign(s, s2: TecSyntaxFormat);
  begin
  