anchor.diff:    ATSynEdit_RegExpr,
     ec_RegExpr;
   
  +{
   type
     TStringReplacePart = record
       SFrom, STo: string;
     end;
  +}
   
   function STextWholeWordSelection(const S: UnicodeString; OffsetBegin, OffsetEnd: integer;
     const ANonWordChars: UnicodeString): boolean;
  
positive.code:     Inc(i);
    until False;
  end;
  
  function SEscapeForPython(const Str: string): string;
  const
    Decode: array[0..3] of TStringReplacePart =
      (
        (SFrom: '"'; STo: '\"'),
        (SFrom: #10; STo: '\n'),
        (SFrom: #13; STo: '\r'),
        (SFrom: #9; STo: '\t')
      );
  begin
    Result:= SReplaceParts(Str, Decode);
  end;
  
  function SStringToPythonString(const Str: string; AndQuote: boolean=true): string;
  var
  
negative.code: 
  implementation
  
  (*
  function SReplaceParts(const S: string; const Decode: array of TStringReplacePart): string;
  var
    i, j: Integer;
  