diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-04-20 13:46:45 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-04-20 13:46:45 -0400 |
| commit | be96414a62f670655320605955a7b60817d67bdb (patch) | |
| tree | 4f1ed707ccb29f3b2ae6be88a520f278d119b751 /lisp/net/newst-backend.el | |
| parent | 3e233dd1c9a460e93974d9f13dfe564caed5ab56 (diff) | |
| download | emacs-be96414a62f670655320605955a7b60817d67bdb.tar.gz | |
* lisp/net/newst-backend.el (newsticker--sentinel-work):
Replace obsolete form of libxml-parse-xml-region.
Diffstat (limited to 'lisp/net/newst-backend.el')
| -rw-r--r-- | lisp/net/newst-backend.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 520a9e19b42..32893d2eea5 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) 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) - nil t)) + (progn + (xml-remove-comments (point-min) (point-max)) + (list (libxml-parse-xml-region (point-min) (point-max) + nil))) (xml-parse-region (point-min) (point-max))) (error (message "Could not parse %s: %s" (buffer-name) (cadr errordata)) |