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

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

1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/xml.el b/lisp/xml.el
index 01d1afa3b05..8af708335b4 100644
--- 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) ?>)