fix, wysiwyg double quoted string

This commit is contained in:
Basile Burg 2014-12-01 00:08:16 +01:00
parent efbeae9e3c
commit bd38a06383
1 changed files with 2 additions and 0 deletions

View File

@ -589,6 +589,7 @@ begin
begin begin
readerNext; readerNext;
readDelim(reader, fTokStop, stringPostfixes); readDelim(reader, fTokStop, stringPostfixes);
fCurrRange.rString := false;
exit; exit;
end; end;
end; end;
@ -618,6 +619,7 @@ begin
readerNext; readerNext;
fCurrRange.rangeKinds -= [rkString1]; fCurrRange.rangeKinds -= [rkString1];
readDelim(reader, fTokStop, stringPostfixes); readDelim(reader, fTokStop, stringPostfixes);
fCurrRange.rString := false;
if fkStrings in fFoldKinds then if fkStrings in fFoldKinds then
EndCodeFoldBlock(); EndCodeFoldBlock();
exit; exit;