mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

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
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> 2013-08-12 Eli Zaretskii <eliz@gnu.org>
* term/w32-win.el (dynamic-library-alist): Add DLLs for zlib. * 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) (forward-char 1)
;; Now check that we have the right end-tag. ;; Now check that we have the right end-tag.
(let ((end (concat "</" node-name "\\s-*>"))) (let ((end (concat "</" node-name "\\s-*>")))
(while (not (looking-at-p end)) (while (not (looking-at end))
(cond (cond
((eobp) ((eobp)
(error "XML: (Not Well-Formed) End of document while reading element `%s'" (error "XML: (Not Well-Formed) End of document while reading element `%s'"