From da52e21153f1eaf0a3da2add0442cdfd9f763180 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 18 Aug 2014 08:32:47 +0200 Subject: [PATCH] fix editor temp filename was considered as a valid filename --- src/ce_main.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/ce_main.pas b/src/ce_main.pas index 70145265..2c17c6ca 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -1045,12 +1045,15 @@ end; procedure TCEMainForm.actFileSaveExecute(Sender: TObject); var str: string; + ed: TCESynMemo; begin if fEditWidg = nil then exit; - if fEditWidg.editorIndex < 0 then exit; + ed := fEditWidg.currentEditor; + if ed = nil then exit; // - str := fEditWidg.editor[fEditWidg.editorIndex].fileName; - if fileExists(str) then saveFile(fEditWidg.editorIndex) + str := ed.fileName; + if (str <> ed.tempFilename) and (fileExists(str)) then + saveFile(fEditWidg.editorIndex) else actFileSaveAs.Execute; end;