mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
for <foo/>, to make it behave like <foo></foo>.
This commit is contained in:
Stefan Monnier 2003-05-30 16:02:26 +00:00
parent e251428378
commit aba7ce7740
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/xml.el
View file

@ -274,9 +274,7 @@ Returns one of:
(if (looking-at "/>") (if (looking-at "/>")
(progn (progn
(forward-char 2) (forward-char 2)
;; Fixme: Inconsistent with the nil content returned from (nreverse children))
;; `<tag></tag>'.
(nreverse (cons '("") children)))
;; is this a valid start tag ? ;; is this a valid start tag ?
(if (eq (char-after) ?>) (if (eq (char-after) ?>)