mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Regression in 0.8.x

Browse source
This commit is contained in:
Alexander Koblov 2019-01-22 17:05:03 +00:00
commit e2d64cbcd3
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fileviews/ufileviewworker.pas
View file

@ -642,15 +642,13 @@ begin
begin
if (Pos('.', Result) > 0) then
begin
sFileExt := ExtractFileExt(Result);
sFilterNameNoExt := ExtractOnlyFileName(Result);
if not (qsmBeginning in aFilterOptions.Match) then
if not (qsmBeginning in aFilterOptions.Match) then
sFilterNameNoExt := '*' + sFilterNameNoExt;
if not (qsmEnding in aFilterOptions.Match) then
sFilterNameNoExt := sFilterNameNoExt + '*';
sFileExt := ExtractFileExt(Result);
if sFileExt = EmptyStr then
sFileExt := Result + '*';
Result := sFilterNameNoExt + sFileExt;
Result := sFilterNameNoExt + sFileExt + '*';
end
else
begin