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

EditorOptions: cleanup

Browse Source 
git-svn-id: trunk@21196 -
This commit is contained in:
martin 2009-08-12 13:47:53 +00:00
parent 1aa3cceda2
commit c34d49893d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/editoroptions.pp
View File

@ -3592,7 +3592,6 @@ var
HasSpecialAttribute: THasSpecialAttribute;
a: TAdditionalHilightAttribute;
i: Integer;
Attr: TSynHighlighterAttributes;
begin
for a := Low(TAdditionalHilightAttribute)
to High(TAdditionalHilightAttribute) do
@ -3609,8 +3608,8 @@ begin
end;
for a := Low(TAdditionalHilightAttribute) to High(TAdditionalHilightAttribute) do
if not HasSpecialAttribute[a] then
Attr := Syn.AddSpecialAttribute(AdditionalHighlightAttributes[a],
GetAdditionalAttributeName(a));
Syn.AddSpecialAttribute(AdditionalHighlightAttributes[a],
GetAdditionalAttributeName(a));
end;
procedure TEditorOptions.GetSynEditPreviewSettings(APreviewEditor: TObject);