diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-08-12 17:11:35 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-08-12 17:11:35 +0200 |
| commit | 01f1a9ab4f3eedbbf99140195c2530b7c242de4f (patch) | |
| tree | 01255db441b8521dbae9aaad9e865f8488375959 /lisp/xml.el | |
| parent | 8a44a184685092e2f39c9355467defde0b8b030c (diff) | |
lisp/xml.el (xml-parse-tag-1): Use looking-at.
(This reverts change in 2013-08-11T00:07:48Z!lekktu@gmail.com, which breaks the test suite).
https://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00263.html
Diffstat (limited to 'lisp/xml.el')
| -rw-r--r-- | lisp/xml.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/xml.el b/lisp/xml.el index e4d5f0b6b6..b62065eb48 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -538,7 +538,7 @@ Return one of: (forward-char 1) ;; Now check that we have the right end-tag. (let ((end (concat "</" node-name "\\s-*>"))) - (while (not (looking-at-p end)) + (while (not (looking-at end)) (cond ((eobp) (error "XML: (Not Well-Formed) End of document while reading element `%s'" |