procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(xml-parse-tag): Avoid overwriting node-name.

Browse source
This commit is contained in:
Stefan Monnier 2004-04-16 22:26:53 +00:00
parent a2fd14621d
commit 43b5fd8135
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

@ -325,10 +325,8 @@ Returns one of:
(push (cons (cdar attr) (intern (concat ":" (cdr attr))))
xml-ns))))
;; expand element names
(setq node-name (list (xml-maybe-do-ns node-name "" xml-ns)))
(setq children (list attrs (xml-maybe-do-ns node-name "" xml-ns)))
(setq children (list attrs node-name))
;; is this an empty element ?
(if (looking-at "/>")
(progn