paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +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
SaveAsFilename:=LowerCase(RemoveAmpersands(OldUnitName))
else
SaveAsFilename:=OldUnitName;
SaveAsFilename:=RemoveAmpersands(OldUnitName);
if SaveAsFilename='' then
SaveAsFilename:=ExtractFileNameOnly(AFilename);
if SaveAsFilename='' then
@ -5010,7 +5010,7 @@ begin
// check unitname
if (NewFileExt<>'') and IsPascalUnitExt(PChar(NewFileExt)) then begin
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
NewUnitName:=OldUnitName;
if NewUnitName='' then