From 1e98674d93976b78c3459c58cadece9565c53da2 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 20 Jul 2011 21:58:46 +0200
Subject: [PATCH] * xml.c (make_dom): Return comments, too.
---
src/ChangeLog | 4 ++++
src/xml.c | 8 ++++++++
2 files changed, 12 insertions(+)
diff --git a/src/ChangeLog b/src/ChangeLog
index e098e536efb..86062435a5d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-20 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * xml.c (make_dom): Return comments, too.
+
2011-07-19 Paul Eggert <eggert@cs.ucla.edu>
Port to OpenBSD.
diff --git a/src/xml.c b/src/xml.c
index 63041c96b24..6dd52638b7d 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -71,6 +71,14 @@ make_dom (xmlNode *node)
else
return Qnil;
}
+ else if (node->type == XML_COMMENT_NODE)
+ {
+ if (node->content)
+ return list3 (intern ("comment"), Qnil,
+ build_string ((char *) node->content));
+ else
+ return Qnil;
+ }
else
return Qnil;
}
--
2.39.5