+(defun nxml-comment-quote-nested (_cs _ce unp)
+ "Quote nested comments in buffer.
+See `comment-quote-nested-function' for more information."
+ (goto-char (point-min))
+ (save-match-data
+ (while (re-search-forward "-[\\]*-" nil t)
+ (goto-char (match-beginning 0))
+ (forward-char 1)
+ (if unp
+ (delete-char 1)
+ (insert "\\")))))
+