anchor.diff:  
   var
     MayCloseCommment: Boolean;
  +  Pos: Integer;
   begin
     Self.Doc := Doc;
     Self.Styles := Styles;
  
positive.code: 
          '<':
          begin
            GetCh;
            case LCh of
              '!', '-':
  
negative.code:           else
              if not FromLink then
              begin
                Doc.Position := Pos;
                LCh := '<';
                break;
              end;
  