X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/7a22490f14441898e1c4f6679f5924f097f3bb34..351739ba1446446dd4755aac2406c21a93edf63f:/lisp/xml.el

diff --git a/lisp/xml.el b/lisp/xml.el
index e4d5f0b6b6..b3dce41ce1 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -1,6 +1,6 @@
 ;;; xml.el --- XML parser
 
-;; Copyright (C) 2000-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2015 Free Software Foundation, Inc.
 
 ;; Author: Emmanuel Briot  <briot@gnat.com>
 ;; Maintainer: Mark A. Hershberger <mah@everybody.org>
@@ -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'"