(xml-parse-attlist): Quotes around attributes must be the

same on each side.  Make sure we properly handle simple quotes.
From Daiki Ueno <ueno@unixuser.org>.

diff --git a/lisp/xml.el b/lisp/xml.el
index ac27b776b95eae6aa3402a2a820931ca149c8dbf..23d4e5d25b1a5b455b5c9b3fa676da87a95a3a11 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -290,7 +290,7 @@ Leaves the point on the first non-blank character after the tag."
       ;; Do we have a string between quotes (or double-quotes),
       ;;  or a simple word ?
       (unless (looking-at "\"\\([^\"]+\\)\"")
-       (unless (looking-at "'\\([^\"]+\\)'")
+       (unless (looking-at "'\\([^']+\\)'")
          (error "XML: Attribute values must be given between quotes")))
 
       ;; Each attribute must be unique within a given element