- Updated find pattern

pret-pas.lua

@@ -99,7 +99,7 @@ function visualizer.flush_line(str, nested)
 
 	--state = buffers.changestate(1, state)
 	for c in string.utfcharacters(str) do
-		if string.find(c, "^[%a%_]$") then
+		if string.find(c, "^[%a_]$") then
 			-- char belongs to identifier
 			if word then
 				word = word .. c
@@ -140,7 +140,7 @@ function visualizer.flush_line(str, nested)
 	end
 	flush_pas_word(word)
 	word = nil
-
+	
 --[[
     local code, comment = string.match(str,"^(.-)%-%-%[%[(.*)$")
     if comment then

test-file/pret-pas_test.tex

@@ -24,7 +24,9 @@ end;
 
 \startPAS
 My_Variable := _Variable;
+aaa asm for end For END
+aaa aSM foR eNd For END
 45My_Variable := _Variable45;
-&for
+&for asm blub
 \stopPAS
 \stoptext