paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 04:59:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: saveall: check units modified

Browse Source 
git-svn-id: trunk@23071 -
This commit is contained in:
mattias 2009-12-10 16:34:39 +00:00
parent 725116be84
commit b54a398642
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

@ -10246,7 +10246,7 @@ begin
CurResult:=DoCallModalFunctionHandler(lihtOnSavingAll);
if CurResult=mrAbort then exit(mrAbort);
if CurResult<>mrOk then Result:=mrCancel;
if Project1.Modified or Project1.SessionModified then
if SomethingOfProjectIsModified then
CurResult:=DoSaveProject(Flags)
else
CurResult:=mrOk;