From be96414a62f670655320605955a7b60817d67bdb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 20 Apr 2018 13:46:45 -0400 Subject: [PATCH] * lisp/net/newst-backend.el (newsticker--sentinel-work): Replace obsolete form of libxml-parse-xml-region. --- lisp/net/newst-backend.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 520a9e19b42..32893d2eea5 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -874,11 +874,12 @@ Argument BUFFER is the buffer of the retrieval process." (decode-coding-region (point-min) (point-max) coding-system)) (condition-case errordata - ;; The xml parser might fail or the xml might be - ;; bugged + ;; The xml parser might fail or the xml might be bugged. (if (fboundp 'libxml-parse-xml-region) - (list (libxml-parse-xml-region (point-min) (point-max) - nil t)) + (progn + (xml-remove-comments (point-min) (point-max)) + (list (libxml-parse-xml-region (point-min) (point-max) + nil))) (xml-parse-region (point-min) (point-max))) (error (message "Could not parse %s: %s" (buffer-name) (cadr errordata)) -- 2.39.5