From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 12 Aug 2013 15:11:35 +0000 (+0200)
Subject: lisp/xml.el (xml-parse-tag-1): Use looking-at.
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/01f1a9ab4f3eedbbf99140195c2530b7c242de4f

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
---

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  <lekktu@gmail.com>
+
+	* 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  <eliz@gnu.org>
 
 	* 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 "</" 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'"