From ce533897e0523dd1930c74789641c5feb96473a3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 16 Mar 2016 17:24:36 -0400 Subject: [PATCH] * 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 file changed, 1 insertion(+), 1 deletion(-) 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" -- 2.39.2