HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
90bfea2
)
(get-setf-method): Protect caller's match-data from string-match.
author
Erik Naggum
<erik@naggum.no>
Fri, 22 Sep 1995 21:51:21 +0000
(21:51 +0000)
committer
Erik Naggum
<erik@naggum.no>
Fri, 22 Sep 1995 21:51:21 +0000
(21:51 +0000)
lisp/emacs-lisp/cl-macs.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/cl-macs.el
b/lisp/emacs-lisp/cl-macs.el
index
46f8d3d
..
ba13691
100644
(file)
--- 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)