diff options
| author | Ulf Jasper <ulf.jasper@web.de> | 2014-11-22 15:51:12 +0100 |
|---|---|---|
| committer | Ulf Jasper <ulf.jasper@web.de> | 2014-11-22 15:51:12 +0100 |
| commit | 46035c64e6f3036c37ef2bd1636afc41a8d0e809 (patch) | |
| tree | 6fd7a25f0f24477c328a4df15eb8f52b1907985d /lisp/net/newst-backend.el | |
| parent | b559a60382a3e192250e533c4a9daecacabd4026 (diff) | |
| download | emacs-46035c64e6f3036c37ef2bd1636afc41a8d0e809.tar.gz | |
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.
Diffstat (limited to 'lisp/net/newst-backend.el')
| -rw-r--r-- | lisp/net/newst-backend.el | 7 |
1 files changed, 4 insertions, 3 deletions
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)) |