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

EditorOptions: Fixed possible endless loop

Browse Source 
git-svn-id: trunk@21183 -
This commit is contained in:
martin 2009-08-12 01:38:48 +00:00
parent bb7f662fae
commit 5e096085eb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/editor_color_options.pas
View File

@ -1248,8 +1248,10 @@ begin
while (i >= 0) do while (i >= 0) do
begin begin
e := PreviewSyn.Attribute[i]; e := PreviewSyn.Attribute[i];
if e.Name = '' then if e.Name = '' then begin
dec(i);
continue; continue;
end;
if e.Name = AdditionalHighlightAttributes[AddAttr] then if e.Name = AdditionalHighlightAttributes[AddAttr] then
begin begin
Special := True; Special := True;