anchor.diff:    if SLexer='' then exit;
   
     SValue:= EditorGetLefterHtmlTag(Ed, AX, AY);
  -  if (SValue='') or (LowerCase(SValue) in SingletonTags) then exit;
  +  if SValue='' then exit;
  +  if not IsTagNeedsClosingTag(LowerCase(SValue)) then exit;
   
     if SRegexMatchesString(SLexer, UiOps.AutocompleteHtml_Lexers, false) then
     begin
  
positive.code:   ATSynEdit_Adapter_LiteLexer,
    ATSynEdit_Bookmarks,
    ATSynEdit_Finder,
    ATStrings,
    ATStringProc,
    ATStringProc_Separator,
  
negative.code: var
    SValue: UnicodeString;
    SLexer: string;
  begin
    if not (UiOps.AutocompleteHtml and UiOps.AutocompleteHtml_AutoClose) then exit;
    if Ed.AdapterForHilite=nil then exit;
  