Mercurial > emacs

changeset 54936:9204ad91984c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xml-parse-tag): Avoid overwriting node-name.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 16 Apr 2004 22:26:53 +0000
parents efddc239393d
children 42293f0612cc
files lisp/xml.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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