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

SynEdit, Highlighter: more html5 tags. Issue #28547 patch by Janusz

Browse Source 
git-svn-id: trunk@49889 -
This commit is contained in:
martin 2015-09-29 00:25:46 +00:00
parent 5642758bf1
commit dcded9666e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synhighlighterhtml.pp
View File

@ -1007,7 +1007,7 @@ end;
function TSynHTMLSyn.Func37: TtkTokenKind;
begin
if KeyComp('CITE') Or KeyComp('NAV') then begin
if KeyComp('CITE') Or KeyComp('NAV') Or KeyComp('MAIN') then begin
Result := tkKey;
end else begin
Result := tkUndefKey;
@ -1103,7 +1103,7 @@ end;
function TSynHTMLSyn.Func48: TtkTokenKind;
begin
if KeyComp('BLINK') then begin
if KeyComp('BLINK') Or KeyComp('DIALOG') then begin
Result := tkKey;
end else begin
Result := tkUndefKey;
@ -1451,7 +1451,7 @@ end;
function TSynHTMLSyn.Func100: TtkTokenKind;
begin
if KeyComp('FIGCAPTION') then begin
if KeyComp('FIGCAPTION') Or KeyComp('MENUITEM') then begin
Result := tkKey;
end else begin
Result := tkUndefKey;
@ -1761,7 +1761,7 @@ end;
function TSynHTMLSyn.Func159: TtkTokenKind;
begin
if KeyComp('/CITE') Or KeyComp('/NAV') then begin
if KeyComp('/CITE') Or KeyComp('/NAV') Or KeyComp('/MAIN') then begin
Result := tkKey;
end else begin
Result := tkUndefKey;
@ -1842,7 +1842,7 @@ end;
function TSynHTMLSyn.Func170: TtkTokenKind;
begin
if KeyComp('/BLINK') then begin
if KeyComp('/BLINK') Or KeyComp('/DIALOG') then begin
Result := tkKey;
end else begin
Result := tkUndefKey;
@ -2147,7 +2147,7 @@ end;
function TSynHTMLSyn.Func222: TtkTokenKind;
begin
if KeyComp('/FIGCAPTION') then begin
if KeyComp('/FIGCAPTION') Or KeyComp('/MENUITEM') then begin
Result := tkKey;
end else begin
Result := tkUndefKey;