paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 07:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: save editor file: stop on any WriteUnitSource failure

Browse Source 
git-svn-id: trunk@17806 -
This commit is contained in:
mattias 2008-12-11 23:05:26 +00:00
parent a3471e0254
commit a551e636a9
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

@ -7181,7 +7181,7 @@ begin
begin begin
// save source to file // save source to file
Result := ActiveUnitInfo.WriteUnitSource; Result := ActiveUnitInfo.WriteUnitSource;
if Result = mrAbort then if Result <> mrOK then
Exit; Exit;
DestFilename := ActiveUnitInfo.Filename; DestFilename := ActiveUnitInfo.Filename;
end; end;