diff options
Diffstat (limited to 'src/xml.c')
| -rw-r--r-- | src/xml.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/xml.c b/src/xml.c index 6d212b44059..a8a4d8122da 100644 --- a/src/xml.c +++ b/src/xml.c @@ -138,7 +138,8 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html if (result == Qnil) result = r; else - result = Fnreverse (Fcons (r, result)); + result = Fcons (intern ("top"), + Fcons (Qnil, Fnreverse (Fcons (r, result)))); xmlFreeDoc (doc); xmlCleanupParser (); |