From: Juanma Barranquero Date: Thu, 20 Mar 2003 18:01:58 +0000 (+0000) Subject: (xml-parse-attlist): typo in attribute parsing. X-Git-Tag: ttn-vms-21-2-B4~10835 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0ec17115f58f2f4d77059515c132ddfc3d7b233;p=emacs.git (xml-parse-attlist): typo in attribute parsing. --- 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 + + * xml.el (xml-parse-attlist): Fix typo in attribute parsing. + 2003-03-20 Kenichi Handa * 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))