From: Ulf Jasper Date: Sat, 22 Nov 2014 14:51:12 +0000 (+0100) Subject: newsticker: Fix bug#18787: Tell libxml-parse-xml-region to discard comments. X-Git-Tag: emacs-25.0.90~2635^2~388 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46035c64e6f3036c37ef2bd1636afc41a8d0e809;p=emacs.git 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. --- 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))