From: Kim F. Storm <storm@cua.dk>
Date: Wed, 8 Jun 2005 22:54:39 +0000 (+0000)
Subject: (Fset_match_data): Fix last change.
X-Git-Tag: emacs-pretest-22.0.90~9184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ad54a7e1699f6fdc85c64c9117f446d6fb7afc7;p=emacs.git

(Fset_match_data): Fix last change.
---

diff --git a/src/search.c b/src/search.c
index 2a75c96e117..c1f2fd77cec 100644
--- a/src/search.c
+++ b/src/search.c
@@ -2942,6 +2942,7 @@ Note: No other references to the markers must exist if you use this.  */)
 		  free_marker (m);
 		else
 		  unchain_marker (XMARKER (m));
+		XSETCAR (list, Qnil);
 	      }
 
 	    if ((list = XCDR (list), !CONSP (list)))
@@ -2962,6 +2963,7 @@ Note: No other references to the markers must exist if you use this.  */)
 		  free_marker (m);
 		else
 		  unchain_marker (XMARKER (m));
+		XSETCAR (list, Qnil);
 	      }
 	  }
 	list = XCDR (list);