anchor.diff:      procedure SetFileName(const AValue: string);
       procedure SetFileName2(AValue: string);
       procedure SetFileWasBig(AValue: boolean);
  +    procedure SetLexer_Ex(Ed: TATSynEdit; an: TecSyntAnalyzer);
       procedure SetLocked(AValue: boolean);
       procedure SetModified(AValue: boolean);
       procedure SetNotifEnabled(AValue: boolean);
  
positive.code:     Ed1: TATSynEdit;
      Ed2: TATSynEdit;
      Adapter: TATAdapterEControl;
      Groups: TATGroups;
      CachedTreeview: TTreeView;
  
  
negative.code: 
  
  procedure TEditorFrame.SetLexer(an: TecSyntAnalyzer);
  begin
    SetLexer_Ex(Ed1, an);
  end;
  
  procedure TEditorFrame.SetLexer_Ex(Ed: TATSynEdit; an: TecSyntAnalyzer);
  var
    an2: TecSyntAnalyzer;
  begin
    if Ed=Ed1 then
    begin
      if IsFileTooBigForLexer(FFileName) then
      begin
        Adapter.Lexer:= nil;
        exit;
      end;
    end
    else
    begin
      if IsFileTooBigForLexer(FFileName2) then
      begin
        if Assigned(Adapter2) then
          Adapter2.Lexer:= nil;
        exit;
      end;
    end;
  
    if AllowFrameParsing then
    begin
      if Assigned(an) then
      begin
        if EditorsLinked then
        begin
          Ed1.AdapterForHilite:= Adapter;
          Ed2.AdapterForHilite:= Adapter;
        end
        else
        begin
          Ed1.AdapterForHilite:= Adapter;
          if Adapter2=nil then
            Adapter2:= TATAdapterEControl.Create(Self);
          Ed2.AdapterForHilite:= Adapter2;
        end;
  
        if not DoApplyLexerStylesMap(an, an2) then
          DoDialogLexerStylesMap(an2);
      end
      else
      begin
        Ed.Fold.Clear;
        Ed.Update;
        if (Ed=Ed1) and EditorsLinked then
        begin
          Ed2.Fold.Clear;
          Ed2.Update;
        end;
      end;
  
      if Ed.AdapterForHilite is TATAdapterEControl then
        TATAdapterEControl(Ed.AdapterForHilite).Lexer:= an;
    end
    else
    begin
      FInitialLexer:= an;
      //support on_lexer
      DoPyEvent(Ed, cEventOnLexer, []);
    end;
  end;
  
  