anchor.diff:  
   function DoApplyLexerStylesMap(an: TecSyntAnalyzer): boolean;
   function DoDialogLexerStylesMap(an: TecSyntAnalyzer): boolean;
  -procedure DoClearLexersAskedList;
  +procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil);
   
   
   implementation
  
positive.code:     if Result then
      begin
        F.DoSave;
        DoApplyLexerStylesMap(an);
      end;
    finally
  
negative.code: var
    LexersAsked: TList = nil;
  
  procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil);
  var
    n: integer;
  begin
    if not Assigned(LexersAsked) then exit;
  
    if an=nil then
      LexersAsked.Clear
    else
    begin
      n:= LexersAsked.IndexOf(an);
      if n>=0 then LexersAsked.Delete(n);
    end;
  end;
  
  procedure DoStyleAssign(s, s2: TecSyntaxFormat);
  