# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1082154413 0
# Node ID 9204ad91984cea264ed6b014572df4bbca63ee1d
# Parent  efddc239393d459df80d456768e55251c58384e9
(xml-parse-tag): Avoid overwriting node-name.

diff -r efddc239393d -r 9204ad91984c lisp/xml.el
--- a/lisp/xml.el	Fri Apr 16 22:05:32 2004 +0000
+++ b/lisp/xml.el	Fri Apr 16 22:26:53 2004 +0000
@@ -325,10 +325,8 @@
 	      (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