From 01f1a9ab4f3eedbbf99140195c2530b7c242de4f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 12 Aug 2013 17:11:35 +0200 Subject: [PATCH] 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 --- lisp/ChangeLog | 6 ++++++ lisp/xml.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8d83862268..aa4d0289ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-08-12 Juanma Barranquero + + * 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 + 2013-08-12 Eli Zaretskii * term/w32-win.el (dynamic-library-alist): Add DLLs for zlib. 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 ""))) - (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'" -- 2.20.1