Make Pascal keywords case-insensitive

marijnh · marijnh · commit a62c680b8bbd · 2024-12-05T10:35:07.000+01:00
FIX: Make Pascal keyword matching case-insensitive.
diff --git a/mode/pascal.js b/mode/pascal.js
@@ -58,7 +58,7 @@ function tokenBase(stream, state) {
     return "operator";
   }
   stream.eatWhile(/[\w\$_]/);
-  var cur = stream.current();
+  var cur = stream.current().toLowerCase();
   if (keywords.propertyIsEnumerable(cur)) return "keyword";
   if (atoms.propertyIsEnumerable(cur)) return "atom";
   return "variable";

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ function tokenBase(stream, state) {`
`58`	`58`	`return "operator";`
`59`	`59`	`}`
`60`	`60`	`stream.eatWhile(/[\w\$_]/);`
`61`		`- var cur = stream.current();`
	`61`	`+ var cur = stream.current().toLowerCase();`
`62`	`62`	`if (keywords.propertyIsEnumerable(cur)) return "keyword";`
`63`	`63`	`if (atoms.propertyIsEnumerable(cur)) return "atom";`
`64`	`64`	`return "variable";`