From 0634d4f0a188a0eda5769a42de7b8129e9c1ddb9 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 20 Oct 2018 14:26:14 +0200
Subject: [PATCH] move data files to new folder

---
 src/ce_common.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index 5e83bec8..d4759d17 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -777,8 +777,15 @@ begin
 end;
 
 function getDocPath: string;
+var
+  o: string;
+  n: string;
 begin
-  result := getUserDataPath + 'dexed' + directorySeparator;
+  o := getUserDataPath + 'Coedit' + directorySeparator;
+  n := getUserDataPath + 'dexed' + directorySeparator;
+  if not n.dirExists and o.dirExists then
+    CopyDirTree(o, n);
+  result := n;
 end;
 
 function isFolder(sr: TSearchRec): boolean;