codetools: fpc sources: ignore any hidden diectory

git-svn-id: trunk@47715 -
This commit is contained in:
mattias 2015-02-12 11:41:54 +00:00
parent 4f3dd33568
commit a1a31b8f97

View File

@ -1194,7 +1194,7 @@ end;
function GatherFilesInFPCSources(Directory: string;
const OnProgress: TDefinePoolProgress): TStringList;
begin
Result:=GatherFiles(Directory,'{.svn,CVS}',
Result:=GatherFiles(Directory,'{.*,CVS}',
'{*.pas,*.pp,*.p,*.inc,Makefile.fpc}',8,OnProgress);
end;