paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed saving file with syntax error with option remove empty methods

Browse Source 
git-svn-id: trunk@18767 -
This commit is contained in:
mattias 2009-02-19 21:59:21 +00:00
parent 1bbc803e83
commit edd4e307c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -7185,7 +7185,7 @@ begin
// the component is not yet implemented. // the component is not yet implemented.
Result:=RemoveEmptyMethods(ActiveUnitInfo.Source, Result:=RemoveEmptyMethods(ActiveUnitInfo.Source,
ActiveUnitInfo.Component.ClassName,0,0,false,[pcsPublished]); ActiveUnitInfo.Component.ClassName,0,0,false,[pcsPublished]);
if Result<>mrOk then exit; if Result=mrAbort then exit;
end; end;
// b) do actual save // b) do actual save