forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix editor temp filename was considered as a valid filename

This commit is contained in:
Basile Burg 2014-08-18 08:32:47 +02:00
parent 094a7d7ece
commit da52e21153
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_main.pas
View File

@ -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;