Mercurial > emacs
changeset 51334:ed3269a70a9f
(xml-parse-tag): Return (foo nil) rather than (foo nil "")
for <foo/>, to make it behave like <foo></foo>.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 30 May 2003 16:02:26 +0000 |
| parents | 4fe102239a74 |
| children | 816e3b31173a |
| files | lisp/xml.el |
| diffstat | 1 files changed, 1 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/xml.el Fri May 30 15:41:39 2003 +0000 +++ b/lisp/xml.el Fri May 30 16:02:26 2003 +0000 @@ -274,9 +274,7 @@ (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) ?>)