From f9799efe9083764971569917bcd4b8852b9480c2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 1 Oct 2018 15:13:34 +0000
Subject: [PATCH] lazutils: less hints

git-svn-id: trunk@59216 -
---
 components/lazutils/laz2_dom.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/lazutils/laz2_dom.pas b/components/lazutils/laz2_dom.pas
index bb9991390d..3842ea7e86 100644
--- a/components/lazutils/laz2_dom.pas
+++ b/components/lazutils/laz2_dom.pas
@@ -339,7 +339,7 @@ type
 //   NodeList
 // -------------------------------------------------------
 
-  TFilterResult = (frFalse, frNorecurseFalse, frTrue, frNorecurseTrue);
+  TFilterResult = (frFalse, frNoRecurseFalse, frTrue, frNoRecurseTrue);
 
   TDOMNodeList = class(TObject)
   protected
@@ -1901,7 +1901,7 @@ end;
 function TDOMNodeList.NodeFilter(aNode: TDOMNode): TFilterResult;
 begin
 // accept all nodes but don't allow recursion
-  Result := frNorecurseTrue;
+  Result := frNoRecurseTrue;
 end;
 
 procedure TDOMNodeList.BuildList;
@@ -1917,7 +1917,7 @@ begin
   while Assigned(current) do
   begin
     res := NodeFilter(current);
-    if res in [frTrue, frNorecurseTrue] then
+    if res in [frTrue, frNoRecurseTrue] then
       FList.Add(current);
 
     next := nil;