* lisp/Makefile.in (EMACS): Use a relative filename.

[bpt/emacs.git] / lisp / xml.el

diff --git a/lisp/xml.el b/lisp/xml.el
index e4d5f0b..b62065e 100644 (file)
--- 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'"