1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/xml.el b/lisp/xml.el
index cd801be3083..be2ac96f264 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -646,8 +646,10 @@ surpassed `xml-entity-expansion-limit'"))))
 (defun xml-parse-attlist (&optional xml-ns)
   "Return the attribute-list after point.
 Leave point at the first non-blank character after the tag."
-  (let ((attlist ())
-        end-pos name)
+  (let* ((attlist ())
+         (symbol-qnames (eq (car-safe xml-ns) 'symbol-qnames))
+         (xml-ns (if symbol-qnames (cdr xml-ns) xml-ns))
+         end-pos name)
     (skip-syntax-forward " ")
     (while (looking-at (eval-when-compile
                          (concat "\\(" xml-name-re "\\)\\s-*=\\s-*")))