[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master be96414: * lisp/net/newst-backend.el (newsticker--s

From: Glenn Morris
Subject: [Emacs-diffs] master be96414: * lisp/net/newst-backend.el (newsticker--sentinel-work):
Date: Fri, 20 Apr 2018 13:47:03 -0400 (EDT)

branch: master
commit be96414a62f670655320605955a7b60817d67bdb
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * 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 520a9e1..32893d2 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)
                 (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) 
+                                                         nil)))
                       (xml-parse-region (point-min) (point-max)))
                   (error (message "Could not parse %s: %s"
                                   (buffer-name) (cadr errordata))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]