Commit ac05d33c authored by Erik Naggum's avatar Erik Naggum
Browse files

(get-setf-method): Protect caller's match-data from string-match.

parent 90bfea27
......@@ -1726,7 +1726,8 @@ a macro like `setf' or `incf'."
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment