[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113818: lisp/xml.el (xml-parse-tag-1): Use looking-
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] trunk r113818: lisp/xml.el (xml-parse-tag-1): Use looking-at. |
Date: |
Mon, 12 Aug 2013 15:11:41 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113818
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Mon 2013-08-12 17:11:35 +0200
message:
lisp/xml.el (xml-parse-tag-1): Use looking-at.
(This reverts change in revno:113793, which breaks the test suite).
https://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00263.html
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/xml.el xml.el-20091113204419-o5vbwnq5f7feedwu-1886
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-08-12 13:15:01 +0000
+++ b/lisp/ChangeLog 2013-08-12 15:11:35 +0000
@@ -1,3 +1,9 @@
+2013-08-12 Juanma Barranquero <address@hidden>
+
+ * xml.el (xml-parse-tag-1): Use looking-at (this reverts change in
+ revno:113793, which breaks the test suite).
+ https://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00263.html
+
2013-08-12 Eli Zaretskii <address@hidden>
* term/w32-win.el (dynamic-library-alist): Add DLLs for zlib.
=== modified file 'lisp/xml.el'
--- a/lisp/xml.el 2013-08-11 00:07:48 +0000
+++ b/lisp/xml.el 2013-08-12 15:11:35 +0000
@@ -538,7 +538,7 @@
(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'"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113818: lisp/xml.el (xml-parse-tag-1): Use looking-at.,
Juanma Barranquero <=