From aba7ce7740c06a33789322ab664a03638d549aff Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 May 2003 16:02:26 +0000
Subject: [PATCH] (xml-parse-tag): Return (foo nil) rather than (foo nil "")
 for <foo/>, to make it behave like <foo></foo>.

---
 lisp/xml.el | 4 +---
 1 file changed, 1 insertion(+), 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) ?>)
-- 
2.39.5