anchor.diff:      Ed.BeginUpdate;
       try
         try
  -        DoSave;
  +        SaveSimple(AFileName);
           //prevent empty result file, issue #3435
           if (Ed.Strings.Count>0) and (FileUtil.FileSize(AFileName)=0) then
             raise EFileNotFoundException.Create('Saved to an empty file');
  
positive.code:           begin
              OldEncoding:= Ed.EncodingName;
              Ed.EncodingName:= cEncNameUtf8_NoBom;
              DoSave;
              MsgBox(Format(msgCannotSaveFileWithEnc, [OldEncoding]), MB_OK or MB_ICONWARNING);
            end;
          on E: EFileNotFoundException do
  
negative.code:       ....
      else
      }
      Ed.SaveToFile(fn);
    end;
    //
  var
  