anchor.diff:  var
     OldEncoding: string;
     OldAttr: Longint;
  +  bNotEmpty: boolean;
   begin
     Result:= true;
  +  bNotEmpty:= Ed.Strings.Count>0;
     while true do
     try
       AppFileAttrPrepare(AFileName, OldAttr);
  
positive.code:             Ed.EncodingName:= cEncNameUtf8_NoBom;
              DoSave;
              MsgBox(Format(msgCannotSaveFileWithEnc, [OldEncoding]), MB_OK or MB_ICONWARNING);
            end
          else
            raise;
        end;
  
negative.code:   Controls, LCLType,
    Dialogs, Forms,
    Clipbrd,
    FileUtil,
    ATSynEdit,
    ATSynEdit_LineParts,
    ATSynEdit_CanvasProc,
  