From befd8e10cbfeb41d950c301fe74a88fcfe0c38e6 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sun, 24 Jan 2016 22:48:50 +0000
Subject: [PATCH] ide: lazconf: fix Primary- and SecondaryConfigPath. They
 should end without path delimiter (see InternalInit in lazbaseconf.inc)

git-svn-id: trunk@51400 -
---
 ide/lazconf.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/lazconf.pp b/ide/lazconf.pp
index b4410c5206..0600ca7aaa 100644
--- a/ide/lazconf.pp
+++ b/ide/lazconf.pp
@@ -323,7 +323,7 @@ end;
 procedure SetPrimaryConfigPath(const NewValue: String);
 begin
   debugln('SetPrimaryConfigPath NewValue="',UTF8ToConsole(NewValue),'" -> "',UTF8ToConsole(ExpandFileNameUTF8(NewValue)),'"');
-  PrimaryConfigPath := AppendPathDelim(ExpandFileNameUTF8(NewValue));
+  PrimaryConfigPath := ChompPathDelim(ExpandFileNameUTF8(NewValue));
 end;
 
 {---------------------------------------------------------------------------
@@ -332,7 +332,7 @@ end;
 procedure SetSecondaryConfigPath(const NewValue: String);
 begin
   debugln('SetSecondaryConfigPath NewValue="',UTF8ToConsole(NewValue),'" -> "',UTF8ToConsole(ExpandFileNameUTF8(NewValue)),'"');
-  SecondaryConfigPath := AppendPathDelim(ExpandFileNameUTF8(NewValue));
+  SecondaryConfigPath := ChompPathDelim(ExpandFileNameUTF8(NewValue));
 end;
 
 {---------------------------------------------------------------------------