From a8a47d05b09d9ebbd78c753d953693d1c1d9b3e2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 14 Sep 2010 16:39:57 +0000
Subject: [PATCH] IDE: TrimSearchPath: chomp path delims instead of add

git-svn-id: trunk@27367 -
---
 ide/ideprocs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index db97569470..8a4fd78749 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -1344,7 +1344,7 @@ begin
     if CurPath<>'' then begin
       if (BaseDir<>'') and (not FilenameIsAbsolute(CurPath)) then
         CurPath:=BaseDir+CurPath;
-      CurPath:=AppendPathDelim(TrimFilename(CurPath));
+      CurPath:=ChompPathDelim(TrimFilename(CurPath));
       if Result<>'' then
         CurPath:=';'+CurPath;
       if CurPath<>'' then