paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: clean up completion IsIdentifierChar

Browse Source
This commit is contained in:
Martin 2025-02-27 11:00:07 +01:00
parent 7d0db6e423
commit 57240dc768
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/syncompletion.pas
View File

@ -485,16 +485,11 @@ var
begin begin
Result := p^ in ['a'..'z','A'..'Z','0'..'9','_']; Result := p^ in ['a'..'z','A'..'Z','0'..'9','_'];
if Result then exit; if Result then exit;
if p^ <= #127 then exit;
i := UTF8CodepointSize(p); i := UTF8CodepointSize(p);
SetLength(u, i); if i <= 1 then exit;
// wide chars of UTF-16 <= bytes of UTF-8 string SetLength(u{%H-}, 3); // surrogate and trailing #0
if ConvertUTF8ToUTF16(PWideChar(u), i + 1, p, i, [toInvalidCharToSymbol], L) = trNoError if ConvertUTF8ToUTF16(PWideChar(u), 3, p, i, [toInvalidCharToSymbol], L) = trNoError then
then begin Result := TCharacter.IsLetterOrDigit(u, 1);
SetLength(u, L - 1);
if L > 1 then
Result := TCharacter.IsLetterOrDigit(u, 1);
end;
end; end;
{ TSynBaseCompletionFormScrollBar } { TSynBaseCompletionFormScrollBar }