From 43b5fd8135001dea94a179f71e4d69559716bf37 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 16 Apr 2004 22:26:53 +0000 Subject: [PATCH] (xml-parse-tag): Avoid overwriting node-name. --- lisp/xml.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/xml.el b/lisp/xml.el index 408c13ab39b..98241750c73 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -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 -- 2.39.2