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