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: Case sensitive "cd" command (fixes #1577)

Browse source 
(cherry picked from commit 61a1b24712)
This commit is contained in:
Alexander Koblov 2024-05-01 20:29:22 +03:00
commit ca05ac409d
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fmain.pas
View file

@ -5907,10 +5907,10 @@ end;
function TfrmMain.ExecuteCommandFromEdit(sCmd: String; bRunInTerm: Boolean): Boolean;
var
iIndex: Integer;
aFile: TFile = nil;
sDir, sParams: String;
sFilename: String = '';
Operation: TFileSourceExecuteOperation = nil;
aFile: TFile = nil;
begin
Result:= True;
@ -5922,8 +5922,13 @@ begin
if (fspDirectAccess in ActiveFrame.FileSource.GetProperties) then
begin
iIndex:= Pos('cd ', sCmd);
if (iIndex = 1) or (sCmd = 'cd') then
if FileNameCaseSensitive then
sDir:= sCmd
else begin
sDir:= LowerCase(sCmd);
end;
iIndex:= Pos('cd ', sDir);
if (iIndex = 1) or (sDir = 'cd') then
begin
sCmd:= ReplaceEnvVars(sCmd);