From dcded9666e1382e484701593c6ada2aaf8cffe6d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 29 Sep 2015 00:25:46 +0000
Subject: [PATCH] SynEdit, Highlighter: more html5 tags. Issue #28547 patch by
 Janusz

git-svn-id: trunk@49889 -
---
 components/synedit/synhighlighterhtml.pp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/synedit/synhighlighterhtml.pp b/components/synedit/synhighlighterhtml.pp
index b3bb3a3549..7f0f4f656e 100644
--- a/components/synedit/synhighlighterhtml.pp
+++ b/components/synedit/synhighlighterhtml.pp
@@ -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;