anchor.diff:    if LexName[Length(LexName)]='_' then
       Delete(LexName, Length(Lexname), 1);
   
  -  IsPas:= Pos('Pascal', LexName)>0;
  +  IsPascal:= Pos('Pascal', LexName)>0;
     IsHtml:= UiOps.AutocompleteHtml and (Pos('HTML', LexName)>0);
     IsCss:= UiOps.AutocompleteCss and (LexName='CSS');
  -  IsCaseSens:= (not IsPas) and (Pos('SQL', LexName)=0);
  +  IsCaseSens:= false; //cannot detect it yet
     FileCss:= GetAppPath(cDirDataAcpSpec)+DirectorySeparator+'css_list.ini';
     FileHtml:= GetAppPath(cDirDataAcpSpec)+DirectorySeparator+'html_list.ini';
     FileAcp:= GetAppPath(cDirDataAcp)+DirectorySeparator+LexName+'.acp';
  
positive.code:   if IsCss then
      DoEditorCompletionCss(Ed, FileCss)
    else
      DoEditorCompletionAcp(Ed, FileAcp, IsCaseSens, IsPas);
  end;
  
  procedure TfmMain.mnuTreeFold2Click(Sender: TObject);
  
negative.code:   F: TEditorFrame;
    Ed: TATSynEdit;
    LexName: string;
    IsPascal, IsCss, IsHtml, IsCaseSens: boolean;
    FileHtml, FileCss, FileAcp: string;
  begin
    F:= CurrentFrame;
  