anchor.diff:        Exit(false);
     end;
   
  +  if bNameChanged then
  +    DoLexerFromFilename(Ed, GetFileName(Ed));
  +
     NotifEnabled:= PrevEnabled;
   
     if not TabCaptionFromApi then
  
positive.code: var
    An: TecSyntAnalyzer;
    attr: integer;
    PrevEnabled: boolean;
    NameCounter: integer;
    SFileName, NameTemp, NameInitial: string;
  begin
  
negative.code: 
      SFileName:= SaveDialog.FileName;
      SetFileName(Ed, SFileName);
      bNameChanged:= true;
  
      //add to recents saved-as file:
      if Assigned(FOnAddRecent) then
  