[Emacs-diffs] master 01/01: newsticker: Fix bug#18787: Tell libxml-parse-xml-region to discard comments.

[Ulf Jasper]

branch: master
commit 46035c64e6f3036c37ef2bd1636afc41a8d0e809
Author: Ulf Jasper <address@hidden>
Date:   Sat Nov 22 15:51:12 2014 +0100

    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 d3a9b64..4c7b583 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-22  Ulf Jasper  <address@hidden>
+
+       * net/newst-backend.el (newsticker--sentinel-work): Tell
+       `libxml-parse-xml-region' to discard comments. Fixes bug#18787.
+
 2014-11-22  Michael Albinus  <address@hidden>
 
         * 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 ba10053..7be07c7 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))