From: Kim F. Storm <storm@cua.dk>
Date: Wed, 8 Jun 2005 22:37:23 +0000 (+0000)
Subject: (save-match-data): Add RESEAT arg `evaporate' to
X-Git-Tag: emacs-pretest-22.0.90~9185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0ef72dfd7802827b20f1ff1c844c5832073300a;p=emacs.git

(save-match-data): Add RESEAT arg `evaporate' to
set-match-data to free markers in match-data.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 45bcccbb6e5..585ec920458 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1970,7 +1970,7 @@ The value returned is the value of the last form in BODY."
 	'((save-match-data-internal (match-data)))
 	(list 'unwind-protect
 	      (cons 'progn body)
-	      '(set-match-data save-match-data-internal))))
+	      '(set-match-data save-match-data-internal 'evaporate))))
 
 (defun match-string (num &optional string)
   "Return string of text matched by last search.