fix, no warning when a temp module was closed

This commit is contained in:
Basile Burg 2015-11-07 02:06:48 +01:00
parent 7eeae18d32
commit 2190fb0d51
1 changed files with 2 additions and 2 deletions

View File

@ -249,8 +249,8 @@ var
doc: TCESynMemo;
begin
doc := getDocument(index);
if doc.modified and (dlgFileChangeClose(fDoc.fileName) = mrCancel) then
exit(false);
if (doc.modified or (doc.fileName = doc.tempFilename)) and
(dlgFileChangeClose(fDoc.fileName) = mrCancel) then exit(false);
doc.Free;
result := true;
end;