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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8be3fdcb80..f3b1fe775a5 100644
--- 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 fc6365b50a0..73bab4f20a5 100644
--- 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))