anchor.diff:    Frame: TEditorFrame;
     LexName: string;
     IsCss, IsHtml, IsCaseSens: boolean;
  -  FileAcp: string;
     Caret: TATCaretItem;
     Params: TAppVariantArray;
   begin
  
positive.code:   if IsCss then
      DoEditorCompletionCss(Ed)
    else
      DoEditorCompletionAcp(Ed, FileAcp, IsCaseSens);
  end;
  
  procedure TfmMain.mnuTreeFold2Click(Sender: TObject);
  
negative.code:   IsHtml:= UiOps.AutocompleteHtml and SRegexMatchesString(LexName, UiOps.AutocompleteHtml_Lexers, false);
    IsCss:= UiOps.AutocompleteCss and SRegexMatchesString(LexName, UiOps.AutocompleteCss_Lexers, false);
    IsCaseSens:= false; //cannot detect it yet
  
    CompletionOpsCss.FilenameCssList:= AppDir_DataAutocompleteSpec+DirectorySeparator+'css_list.ini';
    CompletionOpsCss.FilenameCssSelectors:= AppDir_DataAutocompleteSpec+DirectorySeparator+'css_sel.ini';
    CompletionOpsHtml.FilenameHtmlList:= AppDir_DataAutocompleteSpec+DirectorySeparator+'html_list.ini';
  
    //allow autocompletion with multi-carets only in HTML
    if Ed.Carets.Count>1 then
      if not IsHtml then
      begin
  