From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 20 Jul 2011 19:58:46 +0000 (+0200)
Subject: * xml.c (make_dom): Return comments, too.
X-Git-Tag: emacs-pretest-24.0.90~104^2~185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e98674d93976b78c3459c58cadece9565c53da2;p=emacs.git

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

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