diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-07-20 22:45:13 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-07-20 22:45:13 +0200 |
| commit | 9abd05321943d7c962c79bfd4ef3354d93ead53e (patch) | |
| tree | 7f7a6092890d19c969ae710d95a087e0cea1829c /src/xml.c | |
| parent | 36881d164d73f53a1cbb390de8509506b14a2c89 (diff) | |
| download | emacs-9abd05321943d7c962c79bfd4ef3354d93ead53e.tar.gz | |
* xml.c (parse_region): Make sure we always return a tree.
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 (); |