diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-30 16:02:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-30 16:02:26 +0000 |
| commit | aba7ce7740c06a33789322ab664a03638d549aff (patch) | |
| tree | d382d64177cba0d0d6294c49784e23c05db6730d | |
| parent | e251428378764fd025100dd6151ece9bd17000c7 (diff) | |
| download | emacs-aba7ce7740c06a33789322ab664a03638d549aff.tar.gz | |
(xml-parse-tag): Return (foo nil) rather than (foo nil "")
for <foo/>, to make it behave like <foo></foo>.
| -rw-r--r-- | lisp/xml.el | 4 |
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) ?>) |