messages, allow underscore as ident char

This commit is contained in:
Basile Burg 2017-09-03 12:12:23 +02:00
parent 541d14911c
commit 3e20fc1f88
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 1 additions and 1 deletions

View File

@ -1049,7 +1049,7 @@ var
idt: string;
rng: TStringRange = (ptr:nil; pos:0; len: 0);
const
alp = ['a'..'z', 'A'..'Z'];
alp = ['a'..'z', 'A'..'Z', '_'];
begin
result := amkBub;
rng.init(aMessg);