(xml-parse-tag): Fix finding opening tag. A tag name

should not contain `\n'.

diff --git a/lisp/xml.el b/lisp/xml.el
index 4a73810..a7d2ba4 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -203,7 +203,7 @@ Returns one of:
    ((looking-at "</")
     '())
    ;;  opening tag
-   ((looking-at "<\\([^/> \t]+\\)")
+   ((looking-at "<\\([^/> \t\n]+\\)")
     (let* ((node-name (match-string 1))
           (children (list (intern node-name)))
           pos)