diff options
| author | Erik Naggum <erik@naggum.no> | 1995-09-22 21:51:21 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1995-09-22 21:51:21 +0000 |
| commit | ac05d33c673b3f1488e880ee64de34bafd13e901 (patch) | |
| tree | 0edc4e26803130506fab79bc1fae736e4e60dbe4 /lisp/emacs-lisp | |
| parent | 90bfea27cb898aed96f9b687edd7d7fadec7f117 (diff) | |
| download | emacs-ac05d33c673b3f1488e880ee64de34bafd13e901.tar.gz emacs-ac05d33c673b3f1488e880ee64de34bafd13e901.tar.bz2 emacs-ac05d33c673b3f1488e880ee64de34bafd13e901.zip | |
(get-setf-method): Protect caller's match-data from string-match.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 46f8d3d5982..ba136913135 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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) |