diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-03-20 18:01:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-03-20 18:01:58 +0000 |
| commit | f0ec17115f58f2f4d77059515c132ddfc3d7b233 (patch) | |
| tree | 867f1c1359e1754b36bf7555518c0f23d8d29e34 /lisp/xml.el | |
| parent | 76b7fded09728852167e48f9f0c00a46567856a5 (diff) | |
| download | emacs-f0ec17115f58f2f4d77059515c132ddfc3d7b233.tar.gz | |
(xml-parse-attlist): typo in attribute parsing.
Diffstat (limited to 'lisp/xml.el')
| -rw-r--r-- | lisp/xml.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |