mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 07:20:28 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Erik Naggum 1995-09-22 21:51:21 +00:00
parent 90bfea27cb
commit ac05d33c67
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-macs.el
View file

@ -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)