[Emacs-diffs] /srv/bzr/emacs/trunk r105298: * xml.c (parse_region): Make sure we always return a tree.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105298
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2011-07-20 22:45:13 +0200
message:
  * xml.c (parse_region): Make sure we always return a tree.
modified:
  src/ChangeLog
  src/xml.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-07-20 20:05:02 +0000
+++ b/src/ChangeLog     2011-07-20 20:45:13 +0000
@@ -1,3 +1,7 @@
+2011-07-20  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * xml.c (parse_region): Make sure we always return a tree.
+
 2011-07-20  HAMANO Kiyoto  <address@hidden>
 
        * xml.c (parse_region): If a document contains only comments,

=== modified file 'src/xml.c'
--- a/src/xml.c 2011-07-20 20:05:02 +0000
+++ b/src/xml.c 2011-07-20 20:45:13 +0000
@@ -138,7 +138,8 @@
       if (result == Qnil)
        result = r;
       else
-       result = Fnreverse (Fcons (r, result));
+       result = Fcons (intern ("top"),
+                       Fcons (Qnil, Fnreverse (Fcons (r, result))));
 
       xmlFreeDoc (doc);
       xmlCleanupParser ();