anchor.diff:      procedure identifierToD2Syn;
       procedure saveCache;
       procedure loadCache;
  +    class procedure cleanCache; static;
       procedure setDefaultFontSize(aValue: Integer);
       procedure getCallTips;
       procedure HintTimerEvent(sender: TObject);
  
positive.code:   D2Syn.Free;
    LfmSyn.Free;
    TxtSyn.Free;
  end.
  
negative.code:   end;
  end;
  
  class procedure TCESynMemo.cleanCache;
  var
    lst: TStringList;
    today, t: TDateTime;
    fname: string;
    y, m, d: word;
  begin
    lst := TStringList.Create;
    try
      listFiles(lst, getCoeditDocPath + 'editorcache' + DirectorySeparator);
      today := date();
      for fname in lst do if FileAge(fname, t) then
      begin
        DecodeDate(t, y, m, d);
        IncAMonth(y, m, d, 3);
        if EncodeDate(y, m, d) <= today then
          sysutils.DeleteFile(fname);
      end;
    finally
      lst.free;
    end;
  end;
  
  procedure TCESynMemo.checkFileDate;
  var
    newDate: double;
  