(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 45bcccbb6e574132d3ea094b5f0664ed661f4457..585ec92045827082d835771cdf5652e227d4a45b 100644 (file)
--- 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.