mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
* 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.
This commit is contained in:
parent
d6d164f611
commit
ce533897e0
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user