emacs nxml comment atag

emacs-nxml-comment-tag.el

;;

(defun nxml-comment-next-tag (&optional arg)
  (interactive "^p")
  (or arg (setq arg 1))
  (nxml-forward-element)
  (nxml-backward-element)
  (let (p1 p2)
    (setq p1 (point))
    (nxml-forward-element)
    (setq p2 (point))
    (goto-char p1)
    (push-mark p2)
    (setq mark-active t)
    (kill-region p1 p2)
    (kill-append " -->" nil)
    (kill-append "<!-- " t)
    (yank)
    )
  )

(define-key nxml-mode-map (kbd "C-c C-c") 'nxml-comment-next-tag)