procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/xml.el (xml-parse-tag-1): Use looking-at.

Browse source 
(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
This commit is contained in:
Juanma Barranquero 2013-08-12 17:11:35 +02:00
parent 8a44a18468
commit 01f1a9ab4f
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

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

2
lisp/xml.el
View file

@ -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'"