# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 923685712 0
# Node ID f378efa4aa8a1b1adf6b6abd4da0420f2a5f4bea
# Parent  a9eb0deae6c0a08605c73cf4a6f60374744a8b15
(do_autoload): Preserve match data.

diff -r a9eb0deae6c0 -r f378efa4aa8a src/eval.c
--- a/src/eval.c	Fri Apr 09 19:20:26 1999 +0000
+++ b/src/eval.c	Fri Apr 09 19:21:52 1999 +0000
@@ -1649,12 +1649,15 @@
   CHECK_SYMBOL (funname, 0);
   GCPRO3 (fun, funname, fundef);
 
-  /* Value saved here is to be restored into Vautoload_queue */
+  /* Preserve the match data.  */
+  record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));
+  
+  /* Value saved here is to be restored into Vautoload_queue.  */
   record_unwind_protect (un_autoload, Vautoload_queue);
   Vautoload_queue = Qt;
   Fload (Fcar (Fcdr (fundef)), Qnil, noninteractive ? Qt : Qnil, Qnil, Qt);
 
-  /* Save the old autoloads, in case we ever do an unload. */
+  /* Save the old autoloads, in case we ever do an unload.  */
   queue = Vautoload_queue;
   while (CONSP (queue))
     {
@@ -1664,7 +1667,7 @@
 
       /* Note: This test is subtle.  The cdr of an autoload-queue entry
 	 may be an atom if the autoload entry was generated by a defalias
-	 or fset. */
+	 or fset.  */
       if (CONSP (second))
 	Fput (first, Qautoload, (Fcdr (second)));