--- Merging r17735 into '.':

U    rtl/objpas/sysutils/filutilh.inc
U    rtl/objpas/sysutils/sysutils.inc

# revisions: 17735
------------------------------------------------------------------------
r17735 | michael | 2011-06-13 11:07:17 +0200 (Mon, 13 Jun 2011) | 1 line
Changed paths:
   M /trunk/rtl/objpas/sysutils/filutilh.inc
   M /trunk/rtl/objpas/sysutils/sysutils.inc

* Changed ImplicitDir default from False to True
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@17984 -

rtl/objpas/sysutils/filutilh.inc

@@ -100,7 +100,7 @@ Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
 Function DeleteFile (Const FileName : String) : Boolean;
 Function RenameFile (Const OldName, NewName : String) : Boolean;
 
-Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = []) : String;
+Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = [sfoImplicitCurrentDir]) : String;
 Function FileSearch (Const Name, DirList : String; ImplicitCurrentDir : Boolean) : String;
 Function ExeSearch  (Const Name : String; Const DirList : String = '') : String;
 Function FileIsReadOnly(const FileName: String): Boolean;

rtl/objpas/sysutils/sysutils.inc

@@ -18,7 +18,7 @@
   { variant error codes }
   {$i varerror.inc}
 
-    Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = []) : String;
+    Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = [sfoImplicitCurrentDir]) : String;
     Var
       I : longint;
       Temp : String;