paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: save as for an unit with ampersand source name, must suggest without ampersand filename

Browse Source
This commit is contained in:
mattias 2025-01-24 16:53:23 +01:00
parent 5661bb7120
commit 4edd6ad90b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcefilemanager.pas
View File

@ -4932,7 +4932,7 @@ begin
if sfskipReferences in Flags then if sfskipReferences in Flags then
SaveAsFilename:=LowerCase(RemoveAmpersands(OldUnitName)) SaveAsFilename:=LowerCase(RemoveAmpersands(OldUnitName))
else else
SaveAsFilename:=OldUnitName; SaveAsFilename:=RemoveAmpersands(OldUnitName);
if SaveAsFilename='' then if SaveAsFilename='' then
SaveAsFilename:=ExtractFileNameOnly(AFilename); SaveAsFilename:=ExtractFileNameOnly(AFilename);
if SaveAsFilename='' then if SaveAsFilename='' then
@ -5010,7 +5010,7 @@ begin
// check unitname // check unitname
if (NewFileExt<>'') and IsPascalUnitExt(PChar(NewFileExt)) then begin if (NewFileExt<>'') and IsPascalUnitExt(PChar(NewFileExt)) then begin
NewUnitName:=ExtractFileNameOnly(NewFilename); NewUnitName:=ExtractFileNameOnly(NewFilename);
// Do not rename the unit if new filename differs from its name only in case // Do not rename the unit if new filename is just the lowercase version
if LowerCase(OldUnitName)=NewUnitName then if LowerCase(OldUnitName)=NewUnitName then
NewUnitName:=OldUnitName; NewUnitName:=OldUnitName;
if NewUnitName='' then if NewUnitName='' then