forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, wysiwyg double quoted string

This commit is contained in:
Basile Burg 2014-12-01 00:01:02 +01:00
parent 96422af474
commit efbeae9e3c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_d2syn.pas
View File

@ -82,6 +82,7 @@ type
rangeKinds: TRangeKinds;
primaryRange: TPrimaryRange;
secondaryRange: TSecondaryRange;
rString: boolean;
public
procedure Assign(Src: TSynCustomHighlighterRange); override;
function Compare(Range: TSynCustomHighlighterRange): integer; override;
@ -562,6 +563,7 @@ begin
begin
if readerPrev^ in ['r','x','q'] then
begin
fCurrRange.rString := reader^ = 'r';
if not (readerNext^ = '"') then
begin
readerPrev;
@ -574,12 +576,12 @@ begin
begin
if not readUntilAmong(reader, fTokStop, stringStopChecks) then
break;
if reader^ = '\' then
if (reader^ = '\') then
begin
readerNext;
if readWhile(reader, fTokStop, '\') then
continue;
if reader^ = '"' then
if reader^ = '"' then if not fCurrRange.rString then
readerNext;
continue;
end
@ -607,7 +609,7 @@ begin
readerNext;
if readWhile(reader, fTokStop, '\') then
continue;
if reader^ = '"' then
if reader^ = '"' then if not fCurrRange.rString then
readerNext;
continue;
end