add-log-current-defun-function for nxml-mode?

[Stephen Leake]

Does nxml provide a function for add-log-current-defun-function?

I came up with:

(defun nxml-current-element ()
  "Return name of current element.
Suitable for `add-log-current-defun-function'."
  (save-excursion
    (nxml-backward-up-element)
    (buffer-substring (point) xmltok-name-end)))

-- 
-- Stephe