[Emacs-diffs] emacs-25 ce53389: * lisp/xml.el (xml-parse-tag-1): Replace undefined function.

[Glenn Morris]

branch: emacs-25
commit ce533897e0523dd1930c74789641c5feb96473a3
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * 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.
---
 lisp/xml.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/xml.el b/lisp/xml.el
index 1802d04..414300c 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"