Commit 3134906c authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

* xml.c (parse_region): Make the parsing work for non-comment-starting XML files again.

Fixes: debbugs:9144
parent 8d903f4e
2011-09-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* xml.c (parse_region): Make the parsing work for
non-comment-starting XML files again (bug#9144).
2011-09-10 Andreas Schwab <schwab@linux-m68k.org>
* image.c (gif_load): Fix calculation of bottom and right corner.
......
......@@ -124,6 +124,8 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
if (doc != NULL)
{
/* If the document is just comments, then this should get us the
nodes anyway. */
xmlNode *n = doc->children->next;
Lisp_Object r = Qnil;
......@@ -134,9 +136,13 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
n = n->next;
}
if (NILP (result))
result = r;
else
if (NILP (result)) {
/* The document isn't just comments, so get the tree the
proper way. */
xmlNode *node = xmlDocGetRootElement (doc);
if (node != NULL)
result = make_dom (node);
} else
result = Fcons (intern ("top"),
Fcons (Qnil, Fnreverse (Fcons (r, result))));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment