From 96b933cc95fcf7dc5efe9f8274ddf737b49286eb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 14 Sep 2010 16:38:27 +0000
Subject: [PATCH] IDE: fixed TrimSearchPath to keep a . path

git-svn-id: trunk@27366 -
---
 ide/frames/compiler_path_options.pas | 2 +-
 ide/ideprocs.pp                      | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ide/frames/compiler_path_options.pas b/ide/frames/compiler_path_options.pas
index 878adcdf8c..79cf13bdf8 100644
--- a/ide/frames/compiler_path_options.pas
+++ b/ide/frames/compiler_path_options.pas
@@ -5,7 +5,7 @@ unit compiler_path_options;
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
+  Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
   Buttons, StdCtrls, LCLType, InterfaceBase, IDEOptionsIntf, Project,
   CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf, IDEProcs,
   CheckCompilerOpts, MacroIntf, ShowCompilerOpts, MainIntf,
diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 5a0bc629bb..db97569470 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -1347,7 +1347,10 @@ begin
       CurPath:=AppendPathDelim(TrimFilename(CurPath));
       if Result<>'' then
         CurPath:=';'+CurPath;
-      Result:=Result+CurPath;
+      if CurPath<>'' then
+        Result:=Result+CurPath
+      else
+        Result:=Result+'.';
     end;
   end;
 end;