mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

* lisp/net/newst-backend.el (newsticker--sentinel-work):

Browse Source 
Replace obsolete form of libxml-parse-xml-region.
This commit is contained in:
Glenn Morris 2018-04-20 13:46:45 -04:00
parent 3e233dd1c9
commit be96414a62
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/net/newst-backend.el
View File

@ -874,11 +874,12 @@ Argument BUFFER is the buffer of the retrieval process."
(decode-coding-region (point-min) (point-max) (decode-coding-region (point-min) (point-max)
coding-system)) coding-system))
(condition-case errordata (condition-case errordata
;; The xml parser might fail or the xml might be ;; The xml parser might fail or the xml might be bugged.
;; bugged
(if (fboundp 'libxml-parse-xml-region) (if (fboundp 'libxml-parse-xml-region)
(list (libxml-parse-xml-region (point-min) (point-max) (progn
nil t)) (xml-remove-comments (point-min) (point-max))
(list (libxml-parse-xml-region (point-min) (point-max)
nil)))
(xml-parse-region (point-min) (point-max))) (xml-parse-region (point-min) (point-max)))
(error (message "Could not parse %s: %s" (error (message "Could not parse %s: %s"
(buffer-name) (cadr errordata)) (buffer-name) (cadr errordata))