diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-16 22:26:53 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-16 22:26:53 +0000 |
| commit | 43b5fd8135001dea94a179f71e4d69559716bf37 (patch) | |
| tree | ea7bb1dcc9b84cbf59b026379a5d67280620c5fb /lisp/xml.el | |
| parent | a2fd14621d59c00702d1fb8c5af8829c412e65be (diff) | |
| download | emacs-43b5fd8135001dea94a179f71e4d69559716bf37.tar.gz | |
(xml-parse-tag): Avoid overwriting node-name.
Diffstat (limited to 'lisp/xml.el')
| -rw-r--r-- | lisp/xml.el | 4 |
1 files changed, 1 insertions, 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 |