# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 811806681 0
# Node ID 9caf0cd95acfb2d43c9a8fefc7cdb7c615a081c4
# Parent  717fa3c6e815f1116c13cde7797b5034af321c64
(get-setf-method): Protect caller's match-data from string-match.

diff -r 717fa3c6e815 -r 9caf0cd95acf lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Fri Sep 22 21:34:12 1995 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Fri Sep 22 21:51:21 1995 +0000
@@ -1726,7 +1726,8 @@
 			    method
 			  (error "Setf-method for %s returns malformed method"
 				 func)))
-		   (and (string-match "\\`c[ad][ad][ad]?[ad]?r\\'" name)
+		   (and (save-match-data
+			  (string-match "\\`c[ad][ad][ad]?[ad]?r\\'" name))
 			(get-setf-method (compiler-macroexpand place)))
 		   (and (eq func 'edebug-after)
 			(get-setf-method (nth (1- (length place)) place)