From 46035c64e6f3036c37ef2bd1636afc41a8d0e809 Mon Sep 17 00:00:00 2001 From: Ulf Jasper Date: Sat, 22 Nov 2014 15:51:12 +0100 Subject: [PATCH] newsticker: Fix bug#18787: Tell libxml-parse-xml-region to discard comments. * lisp/net/newst-backend.el (newsticker--sentinel-work): Tell `libxml-parse-xml-region' to discard comments. Fixes bug#18787. --- lisp/ChangeLog | 5 +++++ lisp/net/newst-backend.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d3a9b64a478..4c7b58341dd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-11-22 Ulf Jasper + + * net/newst-backend.el (newsticker--sentinel-work): Tell + `libxml-parse-xml-region' to discard comments. Fixes bug#18787. + 2014-11-22 Michael Albinus * net/tramp-sh.el (tramp-sh-handle-start-file-process) diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index ba100534085..7be07c74fcb 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -879,10 +879,11 @@ 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))) + (list (libxml-parse-xml-region (point-min) (point-max) + nil t)) (xml-parse-region (point-min) (point-max))) (error (message "Could not parse %s: %s" (buffer-name) (cadr errordata)) -- 2.39.5