From: Glenn Morris <rgm@gnu.org>
Date: Wed, 16 Mar 2016 21:24:36 +0000 (-0400)
Subject: * lisp/xml.el (xml-parse-tag-1): Replace undefined function.
X-Git-Tag: emacs-25.0.93~89^2~52^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce53389;p=emacs.git

* lisp/xml.el (xml-parse-tag-1): Replace undefined function.

; string-empty-p is defined in subr-x, but this file does not load it.
---

diff --git a/lisp/xml.el b/lisp/xml.el
index 1802d04dfaf..414300cb402 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -580,7 +580,7 @@ Return one of:
       ;; However, if we're parsing incrementally, then we need to deal
       ;; with stray CDATA.
       (let ((s (xml-parse-string)))
-        (when (string-empty-p s)
+        (when (zerop (length s))
           ;; We haven't consumed any input! We must throw an error in
           ;; order to prevent looping forever.
           (error "XML: (Not Well-Formed) Could not parse: %s"