mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Fix nnrss-get-namespace-prefix (bug#34685)

Browse Source 
* lisp/gnus/nnrss.el (nnrss-get-namespace-prefix): Use the car of
parameter el to match what dom-search expects.
* test/lisp/gnus/nnrss-tests.el (test-nnrss-xml): Adjust to what
xml-parse-region produces (bug#34685).
This commit is contained in:
Benjamin Riefenstahl 2021-08-10 15:47:50 +02:00 committed by Lars Ingebrigtsen
parent 1572464b92
commit 2656ecff96
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/nnrss.el
View File

@ -954,9 +954,10 @@ Simply ensures that the first element is rss or rdf."
"Given EL (containing a parsed element) and URI (containing a string
that gives the URI for which you want to retrieve the namespace
prefix), return the prefix."
(let* ((prefix (car (rassoc uri (dom-attributes
(dom-search
el
(let* ((dom (car el))
(prefix (car (rassoc uri (dom-attributes
(dom-search
dom
(lambda (node)
(rassoc uri (dom-attributes node))))))))
(nslist (if prefix

10
test/lisp/gnus/nnrss-tests.el
View File

@ -27,11 +27,11 @@
"Fri, 17 Sep 2004 05:09:49 +0000")))
(defconst test-nnrss-xml
'(rss
((version . "2.0")
(xmlns:dc . "http://purl.org/dc/elements/1.1/"))
(channel
((xmlns:content . "http://purl.org/rss/1.0/modules/content/")))))
'((rss
((version . "2.0")
(xmlns:dc . "http://purl.org/dc/elements/1.1/"))
(channel
((xmlns:content . "http://purl.org/rss/1.0/modules/content/"))))))
(ert-deftest test-nnrss-namespace-top ()
(should (equal (nnrss-get-namespace-prefix