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