anchor.diff:    fCaretPosition := fMemo.SelStart;
     fSourceFilename := fMemo.fileName;
     fSelectionEnd := fMemo.SelEnd;
  +  fFontSize := fMemo.Font.Size;
     //
     // TODO-cEditor Cache: >nested< folding persistence
     // cf. other ways: http://forum.lazarus.freepascal.org/index.php?topic=26748.msg164722#msg164722
  
positive.code:   itm : TCEFoldCache;
  begin
    if fMemo = nil then exit;
    // Currently collisions are not handled.
    if fMemo.fileName <> fSourceFilename then exit;
    //
  
negative.code:     fFolds: TCollection;
      fCaretPosition: Integer;
      fSelectionEnd: Integer;
      fFontSize: Integer;
      fSourceFilename: string;
      procedure setFolds(someFolds: TCollection);
    published
  