paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 23:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: mark saved TCodeBuffer as not modified

Browse Source 
git-svn-id: trunk@21097 -
This commit is contained in:
mattias 2009-08-04 17:01:24 +00:00
parent 684200b7bd
commit 9f0a0a4510
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codecache.pas
View File

@ -894,11 +894,12 @@ end;
function TCodeBuffer.SaveToFile(const AFilename: string): boolean;
begin
Result:=inherited SaveToFile(AFilename);
//DebugLn('TCodeBuffer.SaveToFile ',Filename,' -> ',AFilename,' ',Result);
//DebugLn(['TCodeBuffer.SaveToFile ',Filename,' -> ',AFilename,' ',Result]);
if CompareFilenames(AFilename,Filename)=0 then begin
if Result then begin
IsDeleted:=false;
MakeFileDateValid;
Modified:=false;
end;
end;
end;