xml.c:parse_region: Do not forget the first document child.

* src/xml.c (parse_region): Do not forget the first document child.

* test/automated/libxml-tests.el: New file.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/xml.c b/src/xml.c
index feabe00efab..7e99beb1d05 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -216,7 +216,7 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
     {
       /* If the document is just comments, then this should get us the
          nodes anyway. */
-      xmlNode *n = doc->children->next;
+      xmlNode *n = doc->children;
       Lisp_Object r = Qnil;
 
       while (n) {