anchor.diff:      if Assigned(anLite) then
         LexerLite:= anLite
       else
  -      Lexer:= nil;
  +      SetLexer_Ex(Ed, nil);
     end
     else
     begin
  -    Lexer:= AppManager.FindLexerByName(AValue);
  +    SetLexer_Ex(Ed, AppManager.FindLexerByName(AValue));
     end;
   end;
   
  
positive.code:   if Assigned(FInitialLexer) then
      exit(FInitialLexer.LexerName);
  
    CurAdapter:= Ed1.AdapterForHilite;
    if CurAdapter=nil then exit;
  
    if CurAdapter is TATAdapterEControl then
    begin
      if Adapter=nil then exit;
      an:= Adapter.Lexer;
      if Assigned(an) then
        Result:= an.LexerName;
    end
    else
    if CurAdapter is TATLiteLexer then
    begin
      Result:= (CurAdapter as TATLiteLexer).LexerName+msgLiteLexerSuffix;
    end;
  end;
  
  procedure TEditorFrame.SetLexerName(const AValue: string);
  var
    SName: string;
    anLite: TATLiteLexer;
  
negative.code:     property NotifEnabled: boolean read GetNotifEnabled write SetNotifEnabled;
      property NotifTime: integer read GetNotifTime write SetNotifTime;
      property Lexer: TecSyntAnalyzer read GetLexer write SetLexer;
      property Lexer2: TecSyntAnalyzer read GetLexer2 write SetLexer2;
      property LexerLite: TATLiteLexer read GetLexerLite write SetLexerLite;
      property LexerName: string read GetLexerName write SetLexerName;
      property LexerName2: string read GetLexerName2 write SetLexerName2;
      function LexerNameAtPos(APos: TPoint): string;
      property Locked: boolean read FLocked write SetLocked;
      property CommentString: string read GetCommentString;
  