procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
; string-empty-p is defined in subr-x, but this file does not load it.
This commit is contained in:
Glenn Morris 2016-03-16 17:24:36 -04:00
parent d6d164f611
commit ce533897e0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/xml.el
View file

@ -580,7 +580,7 @@ Return one of:
;; However, if we're parsing incrementally, then we need to deal ;; However, if we're parsing incrementally, then we need to deal
;; with stray CDATA. ;; with stray CDATA.
(let ((s (xml-parse-string))) (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 ;; We haven't consumed any input! We must throw an error in
;; order to prevent looping forever. ;; order to prevent looping forever.
(error "XML: (Not Well-Formed) Could not parse: %s" (error "XML: (Not Well-Formed) Could not parse: %s"