diff --git a/src/ce_main.pas b/src/ce_main.pas index 8bd6cde2..247c761f 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -1575,10 +1575,9 @@ end; procedure TCEMainForm.actFileCloseExecute(Sender: TObject); begin - if fDoc = nil then exit; - if (fDoc.modified or(fDoc.fileName = fDoc.tempFilename)) - and (dlgFileChangeClose(fDoc.fileName) = mrCancel) then exit; - getMultiDocHandler.closeDocument(fDoc); + if fDoc = nil then + exit; + getMultiDocHandler.closeDocument(fDoc); end; procedure TCEMainForm.actFileSaveAllExecute(Sender: TObject);