anchor.diff:    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;
  
positive.code:     procedure identifierToD2Syn;
      procedure saveCache;
      procedure loadCache;
      procedure setDefaultFontSize(aValue: Integer);
      procedure getCallTips;
      procedure HintTimerEvent(sender: TObject);
  
negative.code:   D2Syn.Free;
    LfmSyn.Free;
    TxtSyn.Free;
    //
    TCESynMemo.cleanCache;
  end.
  