# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1118270243 0
# Node ID cb45242e9d82cc1ea8a7dd31beb73f897d94be7a
# Parent  571afd8b238af939bdf36c69b2db94187d206b3a
(save-match-data): Add RESEAT arg `evaporate' to
set-match-data to free markers in match-data.

diff -r 571afd8b238a -r cb45242e9d82 lisp/subr.el
--- a/lisp/subr.el	Wed Jun 08 22:37:13 2005 +0000
+++ b/lisp/subr.el	Wed Jun 08 22:37:23 2005 +0000
@@ -1970,7 +1970,7 @@
 	'((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.