paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 16:11:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid to save file used by codecomplete

Browse Source
This commit is contained in:
pierre 2002-09-09 06:53:54 +00:00
parent 0f31d2ec7e
commit a6d1670b82
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpcodcmp.pas
View File

@ -271,7 +271,8 @@ begin
end;
Addline('begin');
Addline('end.');
SaveFile;
SetModified(true);
// SaveFile;
end;
StoreBrowserSwitchesConfig:=BrowserSwitches^.GetCurrSelParam;
BrowserSwitches^.ReadItemsCfg('+');
@ -632,7 +633,10 @@ END.
{
$Log$
Revision 1.8 2002-09-09 06:22:45 pierre
Revision 1.9 2002-09-09 06:53:54 pierre
* avoid to save file used by codecomplete
Revision 1.8 2002/09/09 06:22:45 pierre
* get it to load old and new desktops

10
ide/fpcompil.pas
View File

@ -685,7 +685,10 @@ function CompilerOpenInputFile(const filename: string): pinputfile; {$ifndef FPC
var f: pinputfile;
W: PSourceWindow;
begin
W:=EditorWindowFile(FExpand(filename));
if assigned(CompilingHiddenFile) then
W:=CompilingHiddenFile
else
W:=EditorWindowFile(FExpand(filename));
if Assigned(W) and (W^.Editor^.GetModified) then
f:=new(PFPInputFile, Init(W^.Editor))
else
@ -1287,7 +1290,10 @@ end;
end.
{
$Log$
Revision 1.12 2002-09-07 15:40:42 peter
Revision 1.13 2002-09-09 06:53:54 pierre
* avoid to save file used by codecomplete
Revision 1.12 2002/09/07 15:40:42 peter
* old logs removed and tabs fixed
Revision 1.11 2002/09/05 08:45:40 pierre