From 5b8d68b752416ad81cef1b47e88268ce68d648c7 Mon Sep 17 00:00:00 2001 From: zufuliu Date: Sun, 30 Oct 2022 07:18:59 +0800 Subject: [PATCH] Add missing Visual Basic keywords. --- src/EditLexers/stlVB.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/EditLexers/stlVB.c b/src/EditLexers/stlVB.c index cb9ebff4b5..067b342ca8 100644 --- a/src/EditLexers/stlVB.c +++ b/src/EditLexers/stlVB.c @@ -11,14 +11,14 @@ static KEYWORDLIST Keywords_VB = {{ "Declare Default Delegate Dim DirectCast Do Each Else ElseIf End Enum Erase Error Event Exit " "False Finally For Friend Function Get GetType GetXMLNamespace Global Goto Handles If Implements " "Imports In Inherits Interface Is IsNot Let Lib Like Loop Me Mod Module MustInherit MustOverride " -"My MyBase MyClass Namespace Narrowing New Next Not Nothing NotInheritable NotOverridable Of On " +"My MyBase MyClass NameOf Namespace Narrowing New Next Not Nothing NotInheritable NotOverridable Of On " "Operator Option Optional Or OrElse Out Overloads Overridable Overrides ParamArray Partial Private " "Property Protected Public RaiseEvent Readonly ReDim Rem RemoveHandler Resume Return Select Set " "Shadows Shared Static Step Stop Structure Sub SyncLock Then Throw To True Try TryCast TypeOf Using " "When While Widening With WithEvents WriteOnly Xor " // Unreserved Keyword "Aggregate Ansi Assembly Async Attribute Auto Await Binary By Compare Custom Distinct Equals Explicit " -"From Group Into IsFalse IsTrue Join Key Mid Off Order Preserve Skip Strict Take Text Unicode Until Where Yield " +"From Group Into IsFalse IsTrue Iterator Join Key Mid Off Order Preserve Skip Strict Take Text Unicode Until Where Yield " "Array Any Count GroupBy OrderBy " // VB6