paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 22:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, PO highlighter: when highlighting strings, do not assume that all quote (") marks inside a string will be properly escaped (with \). E. g. this can be the case if file was edited manually. Instead, simply search for the last quote mark in the string. This change makes highlighter more resilient and also helps in POChecker, where PO strings are presented to user without escape symbols.

Browse Source 
git-svn-id: trunk@57693 -
This commit is contained in:
maxim 2018-04-24 23:57:03 +00:00
parent 545e33e8c9
commit 1fd799fdfc
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/synhighlighterpo.pp
View File

@ -252,16 +252,22 @@ end;
procedure TSynPoSyn.StringProc; procedure TSynPoSyn.StringProc;
var
LastQuotePos: longint;
begin begin
LastQuotePos := Run;
fTokenID := tkString; fTokenID := tkString;
repeat while FLine[Run] <> #0 do
begin
case FLine[Run] of case FLine[Run] of
#0, #10, #13: break; #10, #13: break;
'\': if FLine[Run + 1] = #34 then Inc(Run); { \" means a literal " in the line} #34: LastQuotePos := Run;
end; end;
inc(Run); inc(Run);
until FLine[Run] = #34; end;
if FLine[Run] <> #0 then inc(Run); Run := LastQuotePos;
if FLine[Run] <> #0 then
inc(Run);
end; end;