From a710c6d3ab2d3c9f058c6be52df2b3eedd378c08 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 22 Feb 2016 04:14:11 +0100 Subject: [PATCH] removed data migration code --- src/ce_common.pas | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/src/ce_common.pas b/src/ce_common.pas index 50377d8d..7b258315 100644 --- a/src/ce_common.pas +++ b/src/ce_common.pas @@ -263,36 +263,6 @@ type implementation -{$IFDEF LINUX} -var - // flag that indicates that migration is to be done on first call to getCoeditData... - doneLinuxDataMigration: boolean = false; - -procedure MigrateOldData; -var - oldLocation: string; - newLocation: string; - err: boolean; -begin - err := false; - doneLinuxDataMigration := true; - oldLocation := sysutils.GetEnvironmentVariable('HOME') +'/Coedit'; - if not oldLocation.dirExists then exit; - newLocation := getUserDataPath + 'Coedit'; - try - try - CopyDirTree(oldLocation, newLocation, - [cffOverwriteFile,cffCreateDestDirectory,cffPreserveTime]); - except - err := true; - end; - finally - if not err then - FileUtil.DeleteDirectory(oldLocation, false); - end; -end; -{$ENDIF} - procedure TCEPersistentShortcut.assign(aValue: TPersistent); var src: TCEPersistentShortcut; @@ -634,10 +604,6 @@ end; function getCoeditDocPath: string; begin - {$IFDEF LINUX} - if not doneLinuxDataMigration then - MigrateOldData; - {$ENDIF} result := getUserDataPath + 'Coedit' + directorySeparator; end;