paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 03:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: do not update syntax highlighter without editor options, bug #17901

Browse Source 
git-svn-id: trunk@28180 -
This commit is contained in:
mattias 2010-11-11 08:46:04 +00:00
parent 7d0511c8ac
commit a406dd6698
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/project.pp
View File

@ -1870,7 +1870,8 @@ begin
end;
fFileName:=NewFilename;
UpdateDefaultHighlighter(FilenameToLazSyntaxHighlighter(FFilename));
if EditorOpts<>nil then
UpdateDefaultHighlighter(FilenameToLazSyntaxHighlighter(FFilename));
UpdateSourceDirectoryReference;
end;
@ -3563,7 +3564,8 @@ var
begin
NewBuf:=CodeToolBoss.CreateFile(Filename);
AnUnitInfo:=TUnitInfo.Create(NewBuf);
AnUnitInfo.DefaultSyntaxHighlighter := FilenameToLazSyntaxHighlighter(NewBuf.Filename);
if EditorOpts<>nil then
AnUnitInfo.DefaultSyntaxHighlighter := FilenameToLazSyntaxHighlighter(NewBuf.Filename);
Result:=AnUnitInfo;
end;
@ -5010,6 +5012,7 @@ procedure TProject.UpdateAllCustomHighlighter;
var
i: Integer;
begin
if EditorOpts=nil then exit;
for i:=0 to UnitCount-1 do
Units[i].UpdateHasCustomHighlighter(FilenameToLazSyntaxHighlighter(Units[i].Filename));
end;
@ -5018,6 +5021,7 @@ procedure TProject.UpdateAllSyntaxHighlighter;
var
i: Integer;
begin
if EditorOpts=nil then exit;
for i:=0 to UnitCount-1 do
Units[i].UpdateDefaultHighlighter(FilenameToLazSyntaxHighlighter(Units[i].Filename));
end;