anchor.diff:          readerNext;
           if readWhile(reader, fTokStop, '\') then
             continue;
  -        if reader^ = '"' then
  +        if reader^ = '"' then if not fCurrRange.rString then
             readerNext;
           continue;
         end
  
positive.code:   begin
      if readerPrev^ in ['r','x','q'] then
      begin
        if not (readerNext^ = '"') then
        begin
          readerPrev;
  
negative.code:     rangeKinds: TRangeKinds;
      primaryRange: TPrimaryRange;
      secondaryRange: TSecondaryRange;
      rString: boolean;
    public
      procedure Assign(Src: TSynCustomHighlighterRange); override;
      function Compare(Range: TSynCustomHighlighterRange): integer; override;
  