(xml-parse-attlist): typo in attribute parsing.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8be3fdcb807ca1e13b4dc23a08f8990d30ebffd..f3b1fe775a59b019dcb3e2e642ccdf431e60a3af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-20  Mark A. Hershberger  <mah@everybody.org>
+
+       * xml.el (xml-parse-attlist): Fix typo in attribute parsing.
+
 2003-03-20  Kenichi Handa  <handa@m17n.org>
 
        * international/utf-8.el (ccl-decode-mule-utf-8): Fix a bug in

diff --git a/lisp/xml.el b/lisp/xml.el
index fc6365b50a076783ecc16c074fb80e041c66c8b8..73bab4f20a57e1c8b845ef647bd926925688d2e0 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -294,7 +294,7 @@ Leaves the point on the first non-blank character after the tag."
       ;;  or a simple word ?
       (if (looking-at "\"\\([^\"]*\\)\"")
          (setq start-pos (match-beginning 0))
-       (if (looking-at "'\\([^']*\\)")
+       (if (looking-at "'\\([^']*\\)'")
            (setq start-pos (match-beginning 0))
          (error "XML: Attribute values must be given between quotes")))
 
@@ -314,7 +314,7 @@ Leaves the point on the first non-blank character after the tag."
       (goto-char start-pos)
       (if (looking-at "\"\\([^\"]*\\)\"")
          (goto-char (match-end 0))
-       (if (looking-at "'\\([^']*\\)")
+       (if (looking-at "'\\([^']*\\)'")
            (goto-char (match-end 0))))
 
       (goto-char (- (re-search-forward "[^ \t\n\r]") 1))