* xml.c (make_dom): Return comments, too.

1e98674d · Lars Magne Ingebrigtsen · bfa4f190 · 1e98674d · 1e98674d
Commit 1e98674d authored Jul 20, 2011 by Lars Magne Ingebrigtsen
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

src/ChangeLog src/ChangeLog +4 -0

src/xml.c src/xml.c +8 -0

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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.

--- 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;
 }