anchor.diff:  var
     SValue: UnicodeString;
     SLexer: string;
  -const
  -  SingletonTags: array of UnicodeString = (
  -    'area', 'base', 'br', 'col', 'embed',
  -    'hr', 'img', 'input', 'link', 'meta',
  -    'param', 'source', 'track', 'wbr',
  -    'command', 'keygen', 'menuitem'
  -  );
   begin
     if not (UiOps.AutocompleteHtml and UiOps.AutocompleteHtml_AutoClose) then exit;
     if Ed.AdapterForHilite=nil then exit;
  
positive.code:   ATSynEdit_Adapter_LiteLexer,
    ATSynEdit_Bookmarks,
    ATSynEdit_Finder,
    ATStrings,
    ATStringProc,
    ATStringProc_Separator,
  
negative.code:   if SLexer='' then exit;
  
    SValue:= EditorGetLefterHtmlTag(Ed, AX, AY);
    if SValue='' then exit;
    if not IsTagNeedsClosingTag(LowerCase(SValue)) then exit;
  
    if SRegexMatchesString(SLexer, UiOps.AutocompleteHtml_Lexers, false) then
    begin
  