From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 May 2003 16:02:26 +0000 (+0000)
Subject: (xml-parse-tag): Return (foo nil) rather than (foo nil "")
X-Git-Tag: ttn-vms-21-2-B4~9855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aba7ce7740c06a33789322ab664a03638d549aff;p=emacs.git

(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 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) ?>)