anchor.diff:      Ed1: TATSynEdit;
       Ed2: TATSynEdit;
       Adapter: TATAdapterEControl;
  +    Adapter2: TATAdapterEControl;
       Groups: TATGroups;
       CachedTreeview: TTreeView;
   
  
positive.code: 
  
  procedure TEditorFrame.SetLexer(an: TecSyntAnalyzer);
  var
    an2: TecSyntAnalyzer;
  begin
    if IsFileTooBigForLexer(FileName) then
    begin
      Adapter.Lexer:= nil;
      exit
    end;
  
    if AllowFrameParsing then
    begin
      if Assigned(an) then
      begin
        Ed1.AdapterForHilite:= Adapter;
        Ed2.AdapterForHilite:= Adapter;
        if not DoApplyLexerStylesMap(an, an2) then
          DoDialogLexerStylesMap(an2);
      end
      else
      begin
        Ed1.Fold.Clear;
        Ed2.Fold.Clear;
        Ed1.Update;
        Ed2.Update;
      end;
  
      Adapter.Lexer:= an;
    end
    else
    begin
      FInitialLexer:= an;
      //support on_lexer
      DoPyEvent(Ed1, cEventOnLexer, []);
    end;
  end;
  
  
negative.code: begin
    if FEditorsLinked=AValue then exit;
    FEditorsLinked:= AValue;
  
    if FEditorsLinked then
      Ed2.Strings:= Ed1.Strings
    else
      Ed2.Strings:= nil;
  
    Adapter.AddEditor(nil);
    if Assigned(Adapter2) then
      Adapter2.AddEditor(nil);
  
    if FEditorsLinked then
    begin
      Adapter.AddEditor(Ed1);
      Adapter.AddEditor(Ed2);
    end
    else
    begin
      if Adapter2=nil then
        Adapter2:= TATAdapterEControl.Create(Self);
      Adapter.AddEditor(Ed1);
      Adapter2.AddEditor(Ed2);
    end;
  
    Ed2.Fold.Clear;
    Ed2.Update(true);
  end;
  
  