Fix up xmlCleanupParser sequence.

* xml.c (parse_region): Don't call xmlCleanupParser after parsing,
since this reportedly can destroy thread storage.

* emacs.c (shut_down_emacs): Call xmlCleanupParser on shutdown.

diff --git a/src/ChangeLog b/src/ChangeLog
index 52ec796d6cf0bca1a171e75dde6486ad9169ec88..de12d8f0314d439a88746921235220a7017d0187 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2011-09-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * emacs.c (shut_down_emacs): Call xmlCleanupParser on shutdown.
+
+       * xml.c (parse_region): Don't call xmlCleanupParser after parsing,
+       since this reportedly can destroy thread storage.
+
 2011-08-30  Chong Yidong  <cyd@stupidchicken.com>
 
        * syntax.c (find_defun_start): Update all cache variables if

diff --git a/src/emacs.c b/src/emacs.c
index 7039f063dc21c9152479960febfa881357fb707b..f68c47ffed0c9e7af6a7c087f537e654ed2d1118 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -2097,6 +2097,10 @@ shut_down_emacs (int sig, int no_x, Lisp_Object stuff)
 #ifdef HAVE_NS
   ns_term_shutdown (sig);
 #endif
+
+#ifdef HAVE_LIBXML2
+  xmlCleanupParser ();
+#endif
 }
 
 

diff --git a/src/xml.c b/src/xml.c
index 55352baae3a0ccceed9eed778670523a90fd95ca..8b485e736499419a32be63d8a1786f3a302ab73c 100644 (file)
--- a/src/xml.c
+++ b/src/xml.c
@@ -141,7 +141,6 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
                        Fcons (Qnil, Fnreverse (Fcons (r, result))));
 
       xmlFreeDoc (doc);
-      xmlCleanupParser ();
     }
 
   return result;