From f0ec17115f58f2f4d77059515c132ddfc3d7b233 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 20 Mar 2003 18:01:58 +0000 Subject: (xml-parse-attlist): typo in attribute parsing. --- lisp/xml.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/xml.el') 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)) -- cgit v1.2.1