(xml-parse-tag): Return (foo nil) rather than (foo nil "")

for <foo/>, to make it behave like <foo></foo>.

diff --git a/lisp/xml.el b/lisp/xml.el
index 01d1afa3b051dc5b05f31e7fc65076ced2325b93..8af708335b4fba66210b26f4cedbe8d8465e74c0 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -274,9 +274,7 @@ Returns one of:
       (if (looking-at "/>")
          (progn
            (forward-char 2)
-           ;; Fixme:  Inconsistent with the nil content returned from
-           ;; `<tag></tag>'.
-           (nreverse (cons '("") children)))
+           (nreverse children))
 
        ;; is this a valid start tag ?
        (if (eq (char-after) ?>)