From f0ec17115f58f2f4d77059515c132ddfc3d7b233 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 20 Mar 2003 18:01:58 +0000 Subject: [PATCH] (xml-parse-attlist): typo in attribute parsing. --- lisp/ChangeLog | 4 ++++ lisp/xml.el | 4 ++-- 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 + + * 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)) -- 2.39.2