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